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FOREWORD 


This volume contains a listing of the LOVES program. The program 
is coded partially in SIMSCRIPT 1.5 and FORTRAN (CDC FTN compiler). 
This version of LOVES is compatible with both the CDC 7600 and the 
UNIVAC 1108 computers. The code printed herein has been compiled, 
loaded, and executed successfully on the EXEC 8 system for the UNIVAC 
1108 at Slidell, Louisiana. This was accomplished during the month of 
October (1974). 

In addition to this volume, a separate report, Operations Analysis 
(Study 2. 1), User's Guide and Programmer's Guide, ATR-74(7341)-6, has 
been prepared. 

Study 2. 1, DORCA Applications, is one of several study tasks con- 
nected under NASA Contract NASW-2575 in FY 1974. The NASA Study 
Director was Mr, V. N. Huff, NASA Headquarters, Code MTE. 

By agreement with Mr. Huff, the LOVES program will be delivered 
directly to the NASA Computing Facility. 
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IF IEF E Q Of GO TO 6 

IF T I MEF (IEF) NE 0., CANCEL FAIL CALLEO IEF 
{DESTROY FAIL CALLED IEF 

LET IEF =-J3 „ _ 

IF TF EQ 0*. GO TO i 0 

IF TIME ♦ TF GT TGOUS) » GO TO 13 

CREATE FAIL CALLEO IEF ' - V4 

LET P SAX<I£FJ a IS-..., - ; 1 ... / - 

LET PM03UEF) = IM 

LET TIHEAUEF) = ATIME(IS) 

CAUSE FAIL CALLEO IEF AT TIME * TF 


RETURN 

END : 

ENOOGENOUS EVENT ARRIV 


THIS IS 
NOW ACT 


”>&& < • - 

, >■ ;%, ,J- . '!*) : -i " • 

.£:&■■■ <<■■■ ... ••••(' 


ATELLITE IN ORBIT A F 


AOMOO 23 

AHM.CLQ 23- . 

AOMOO 30 
AOMOO 31 
AOMOD 32 

A DM 00 33— 

AOMOO 34 
AOMOD 35 
AOMOO 36 
Anvmn n 


AOMOO 38 
AOMOO 39 
AOMOO 40 
a nunn u 4 


AOMOO 42 
ADMOD 43 
AOMOO 44 

A HM nfi L 


ADM 00 46 
OD 4? 


R TIME OF FLIGHT. A 

A 

A 



LET IS 
LEX XJt. 

DESTROY ARRIV 

IF IM NE 0, GO TO 100 

LET JST = ITSAT(IS) 

LE T JS Y a I TSY S- US ) — 

LET NOE P II S I ^ : fiOE PIIS) 4- : t - ^ v 
LET NPOSaST s^fl'POSCISJ > : 

IF 8EGST CIS J fetf-fi., LET BEGSTIXSI * TIME 
-IF TLA ST (IS). EQ. . JU.*-L£ T_ -It A SI.tI-Si- .g T.-ME-.. . 
IF BEGSY < JSY ) EQ Q., LET BEGSYIJ3Y) = TIME • 
IF TLASY(JSY) EQ 0., LET TLASY(JSY) = -TIME 
CALL STATUS(IS,0,2> 

LE T J U i H E U S X JS -.. 

LET St I ME 1 1 SI - TIME ■ ^ 

IF TGOSY (JSY) EQ 0., LET TCOSYfJSYl = TIME * 
* TTSYSCJSY) 

IF JttlQSV 


LET TGOfIS) = TIME TTSAT(JST) 

IF TGO(IS) GT TGOSY (JSY) « LET TGO(IS) = 

* TGOSY (JSY I 

r^A< \ A flMOH f T's.Mnn^Yl . FOP Alt MfllSY TM Mnn< 


. ; .r yi'A. 
: SVa-^S 



ARRIV 12 
ARRIV 13 
ARRIV 14 


RIV 16 
..RRlV IF 
ARRIV 18 


ARRIV 2 
ARRIV 21 
ARRIV 22 

ADO Y VI r> -X 


ARRIV 24 
ARRIV 25 
ARRIV 26 
ARRTV 77 


ARRIV 28 
ARRIV 29 
ARRIV 30 





oo o oh poo ! • 


LET I POL = POLDN < JST ) 

IF IPQL £0-0 -> G O TO 2 QQ 


ARR IV 
ARRIV 


32 

_3J_ 


LET T = TINE * TTSATCJSTl ♦ HAITI 
CALL SAVER<T,IS> - r.v; - 

___SCjj£DiiiJE: SATFL1 I I F .F.V.F.NT ( S AIDMLi At T ERMiHAIXQH T IME 

200 IF NARKS (IS) EG 0, GO TO 1 

CANCEL^S ATQN^CALL l D-MARKS Cl ^ 


LET MARKSUSJ - 0 ^ ... 

1 LET T - TIHE > TTSATiJSTI 

IF S0RTE UTSATCTSI 0*§-. RETURN 

?F T fet Tftn ITS1 £ r i FT; T a TGOCtST 
IF T LT TIME, RETURN 


ARRIV 34 
ARRIV 35 
ARRIV 36 
JlRRXV__32_ 


ARRIV 38 
ARRIV 39 
ARRIV 40 
ARRI V 4X 


ARRIV 42 
ARRIV 43 
ARRIV 44 
A&R1M 45 


CREATE SATQN CALLEO HARKSCIS) 
LET PSAT fMARKS(IS) ) = IS 
CAUSE SAIflN CA1 1 FD-ilARKSt IS1 AT 


RETURN 

SINGLE MODULE IS REPLACED IN OR0I? 




ARRIV 46 
ARRIV 47 
ARRIV 48 

ARRI V 4 9 


ARRIV 50 
ARRIV 51 

mmium 

Amiv 


100 


IF SSTAT CISI EQ OUT, 
C /LL A3M0D ( IS , IMT 
CfLL ST A TUS <IS,IM,2) 
£.T HO G N T (NON OP t IH).l. 


RETURN 


=. . r ,H0CN[I i^QHQILlIjUJ . . + . 1. 


ARRIV 54 
ARRIV 55 
ARRIV 56 
ARRIV 57 


RETURN, 

END , 

ENDOGENOUS EVENT BACK : 


[V 

PRIV 
SACK 
-SACK 


58 

59 
2 

_3_ 


WHEN THIS EVENT OCCURS, THE SATELLITE IS REMOVED FROM ORBIT 
CALL STATUS (PSAT (BACK) ,0,6} 

QESTRQY..-..BACLK . _ ... 


BACK 

BACK 

BACK 

BACK 


RETURN 
EW9 

EXOGENOUS 
SAVE . ■ ___ 


EVENT BEGIN 


READ TIMES, TIMES 
FORMAT ( 2 M5. 2. 2) 
CREATE START 


BACK 

t ACK 
EGIN 
BEGIN 


BEGIN 

BEGIN 

BEGIN 

ELEGIiL 


CALL gO AT 
INITIALIZATION 


LET TREFT 
LET SREFT 
LET PREFT 
.L£I..,riJLLJLL 


TREFT/360 • 
SRE r T /360 • 
PREF T / 36 0 • 
WATT3/3fen . 


BEGIN 8 
"BEGIN 9 
BEGIN 10 

BEG IN-11 

BEGIN 12 
BEGIN 13 
BEGIN 14 
__B£5IN__15 



LET PAOT = PAOT /36Q. 


LET WAIT2 
LET WSATU 
LET WSATN 


WAIT 2/ 360. 
WSATD/360 . 
WSATN/360. 


LET W MOO N = HMODN/360, 
LET NTFLT = 1000 
LET NFSE? = 1000 


LET MIN39(I> 
: LET HI Nd 6411 
n lET MIN 9 0 1 It 


1000 

1000 

1000 


LET N227 (I) 
LET N208II) 
LET N200CI) 


N216II) 
N 121 II) 
N 125(1) 




1000 • y FOR I# 111 (SYO 
1000, F 0 R fell) I HIT A 
1000, FOR 1*1*11 MIT A 


[*£11 






BEGIN 18 
BEGIN 19 
BEGIN 20 

OCflTtd *>* 


BEGIN 22 
BEGIN 23 
BEGIN 24 

nfi- t ki ne 


BEGIN 26 
BEGIN 27 
BEGIN 28 


, FOR I*(i> (SY3RB) 

BEGIN 

30 

FOR 1=11) (STST3) 

BEGIN 

31 

FOR I=(l> CSTSTB) 

BEGIN 

32 


LET KTOCI) = 1000., FOR I=(1M3) 
LET MCV A (I ) = 1000 ., FOR I=(1M3) 
RETURN 
trwn 


. SUBROUTINE CSPAY ; '-V; 

COMPUTE LAUNCH STATISTICS FOR' -P A YLO A OS ; 

LET 8 - 0 • 

DO TO 11, FOR I=C1> (NL(IORB)I 
LET B = 8 ♦ PAYWT(ILOAOd)) 

— IF I.HOD ( ILQ-AO ( I.) ) £Q 0 
LET NX = IMOOlItOAOU* , 

LE T HUM I NX ) **> NU MI NX! + 1 
11 LOOP • • 'Z?*W -i 

let NMa iMt Amat msm 

LET SU = (NMD+NINSU-1 ) /NINSU 

IF SU EQ 0., GO TO 13 

LET X = SU*WT$U/ ANMO { I0R8) 

CT 0=34. ^mfUTCII 


O TO 12, FOR 1 = 11) €NL ( IOR311. . -- 

IF I MOO f ILOABI ID NE 0, LET PAYWT (ILOA0III) * PAYWTMLOAOl I) I 
LOOP "<• , r< 


LET NX * IS AT ( ILOAOI J) ) 

LET NY = IMODIXLOAOI *.> > 

LET LFSAT(NX) = LFSAT(NX) *■ PAYWT ( ILOAO(J))/B 


BEGIN 34 
BEGIN 35 
BEGIN 36 

BEGIN 38 
BEGIN 39 
BEGIN 40 


m, 


AY 2 
PAY 3 
FAY 4 


CSPAY 6 
CSPAY 7 
CSPAY 9 


CSPAY 14 
CSPAY 15 
CSPAY 16 

r cr» a v i , 


CSPAY 18 
> X CSPAY 19 
CSPAY 20 




CSPAY 22 
CSPAY 23 
CSPAY 24 
XS£AY„2iL 




IF NY EQ 0, GO TO 14 

XXX---M ., = 100.* PA YHT .( XL Q.AIHJ1I./ IS- 


LET LGADF <NV) = LOAOF I NY) 
14 LOOP 
.. RETURN. 

END 


♦ H 


CSPAY 26 
GSPAY-Jl?- 


SU8R0UT I NE DROPQ <J, 10) 

OROP PAYLOAD J FROM LO <?D QUEUE ORSCIQ) 


CSPAY 2 a 
CSPAY 29 
CSPAY 30 
ILSPAL3X 


op '10 5, FOR ALL I TORS IN ORSIIOV 

if!' prrminmB) he go to 5 

REJ*Ot£ *4* FROM LOAD ' , 

PeSTRQy^PAYLO.JlIALL£CL-JL ____ 


OROPQ 2 
DROPQ 3 
□ROPQ 4 

_Qfinp.a_ s. 


REMOTE ITORB FROM ORB < 10) 
DESTROY ITORB 
RETURN 
■S LOOP 


DROPQ 6 
DROPQ 7 
OROPQ 8 
HBQgQ 9 


OROPQ 

OROPQ 

OROPQ 

UROPGL 


RETURN --v 

ENO 

ENDOGENOUS EVENT FAIL 




'«■ 


THIS ROUTINE WILL MARK OUTAGE OF A SATELLITE ANO NOTE WHICH 
IS OUT { MAY8E MORE THAN ONE). 


BROW 
Wit 
FAIL 


MODULEF AIL 
FAIL 
FAIL 
FAIL 


10 
11 
12 

S3 

I* 

4 

5 

6 

_. 7 . 


LET I S - 'PS A T fFAIU 
LET PMQO* (FAILJ 

LET T ~ T-XMEAIFAIU 
..-fl.£S T ROX ZEA1L 


mu 

FAIL 

FAIL 

EAIL 



LET EFAIL(IM) = 0 

BLOCK FAILURE EVENT (FOR LAUNCH) IF MODULE IS NOT REPLACEABLE 


IF SSTATXIS) EQ OUT* RETURN I 

, IF T IT AT I METIS), RETURN V* - f >-■ 

; CALL STATUS <IS, IM, 31 ' 

_ L£ T N OPAL ( N QMQflT IAd - = -MFAl fcNOHaO tTHl.l M/S 
IF SS T AT < IS > EQ OUT, RETURN 
LET DELAY = WMOON 

BLOCK EVE N T A FT Eft. IXflES- .... ■ . ‘ 


FAIL 

FAIL 

FAIL 

ftfr 

FAIL 

FAIL 


8 

9 

10 

SS 


12 

13 

14 
JJL 


FAIL 

FAIL 

FAIL 

-FAIL 


16 

17 

18 
XSL 


20 

21 

22 

23. 


IF EWARNCIH) PNE 0* "RETURN • - £ ■ 1-' 
If TIME + DEL AY TGO.f IS1 , RETURN 


CALL RE0UN t IS , IH ) 

IF OELTA GT 0., RETURN 
CREATE LAUNC 
XEX-P-SA Li LAlMGJ — = — IS 


FAIL 24 
FAIL 25 
FAIL 26 

FAIL U 

FAIL 28 
FAIL 29 
FAIL 30 
FALL _lX-_ 


°° I 1 i | I ' | ooti | •> looo 


LET PMOOdAUNC) = IM 

GAUSS- LAUNC -AJ— ' LIKE * D ELAY 

RETURN 

END 

SUBROUTINE FILED 

OUTPUT - SATELLITE STA TUS~SUMMAR Y REPORT 
LET TRIG2 = 1 

W-RXI&-ON- 6 

FORMAT < VI* | 

00 TO 5, FOR ALL fR IN FRS 

LET TIME = TIHEFfFR) . : ; ~ 

LEX— IS — s — SAJilQXERj 

LET I = SATSY(FR) 

LET NPOSUS) = NPS<FR> 

IF I EQ i, LET K = UP 


• if i eq 3, let K,-?Ff5UT.'.'.‘":>r“" T '-v < -;;- - S" *'■ 

■ LET ST ATI IT SYS CIS) Ik K '.£• , 

LET I -"STCFR) V- . V ■ "\M' 

-.IE... I £fl.~L« ..LET K-.sL-.liP-, ' " - ' is .. • 

IF I EQ 2« LET K = DOWN 
IF I EQ 3, LET K = OUT 
LET SSTATUS) = K 

mUtOM-NE IS f WRITE ON -6 ; 

FORMAT (*0 .^CHRONOLOGICAL TIMS HISTORY OF SAT ELI 

:\e§^r /S5 ^s?5i*. syste * st4tus s * tei 

. LEXXNOH-^-XS-- -...-I x; ~ ‘ - -V l _ 

CALL STATUS (I S , MOONOl FR) , NOST A IFRI I 

RELEASE MEMORY 

REMOVE FR FROM FRS ’ . V' .. ' . 

DESTROY FR •* V>. ' • ./ : ' ■; 

5 LOOP • "■ < 


FILEO 12 
FILED 13 
FILEO 14 
FUEO 15. 

■ FILEO 16 

■ FILED 17 

FILED 18 

•:>' • - • - r i LFCXXR- 

FILEO 20 
FILEO 21 
FILEO 22 

:iT£ POSITION IFILEC 24 

LITE STATUS FILEO 25 

\ . v. ■ * FILEO 26 

-• -• : - -^L ~ • ■ ■ ,,FI L F Ql_2JL 

FILEO 28 
FILEO 29 
FILEO 30 

FILEO 31 

• FILEO 32 

FILEO 33 
FILEO 34 

< -. - -"-J EXLEQ-35 

FILEO 36 
FILEO 37 
FILEO 38 


FILE SATELLITE SUMMARY IN FR 


LET TIMEF(FR) = TIME 
LET SATNO<FR) = IS 
LET I = STATUTSYSUSH 
LE-X £U JIP^ .-LEJ- JC =.. 1 


FILES 

FILES 


1 






IF I EQ DOWN, LET K = 2 

£Q OUT t LET K ...a.. 3 


FILES 11 

...... FT! FS 1 7 





LET SATSYJFR) = K 
LET I = SST ATT ISt 
IF I EQ UP, LET K - 1 
£F^1 EQ DOWN, IFT K =-2 


FILES 13 
FILES 14 
FILES 15 
. FT1 FS IF 





IF I EQ OUT, LET K = 3 
LET STCFR) = K 
LET MQQNQ { FR) = IM 

LET NQSTAIFRi ^ 1ST 


FILES 17 
FILES 18 
FILES 19 
„ FT! FS ?fl 





let nps <fr> = nposus) 

FILE FR IN FRS 

RETURN ; . 

-EHO .. 


FILES Hi 
c,. FILES 2 2 

- **V. . "FILES 2 3 

FTLFS ?4 



n 

c 

c~ 

SUBROUTINE GETV(IGO) 
FIND NECESSARY VEHICLES 


GETV 2 

GET V 3 

GETV 4 

GFTV 5 





LET I TUG = 0 
LET ISEPS = 0 

LET ICO = 0 ;* , 

i FT rSHtlT = Q ' 


GETV 6 

GETV 7 

GETV 8 

• *> - ^ GET V 9 


1 

1 

oo 


5 

DO TO 5, FOR I=(l) INSHUT) 

IF VSHUTTI) GT 0, LET ISHUT = I 
LOOP 

If,, I SHUT FQ, 13, G.Q TO 2Q 


GETV 10 
. GETV 11 

GETV 12 
GETV 13 




_UL 

IE RQUPI IORB) . EQ 0, RETURN - 

DO TO 10, FOR I-f4MNn^r ; 

Mr VTUGtl) GT LET ITUG » I _ 

t OOP : i_±: : : 

:*V- ----- - 

-v ‘ ; ■ GETV 14 

GETV 15 
GETV 16 

' . " : - A : f - rGFTV 17 


o o 
’*© S 



IF IT UG £0 0, GO TO 25 
IF RQSEP < IORB ) EO 0, RETURN 
DO TO 15, FOR 1= (1 ) (NSEPS) 

TF VSFPS-l I) GT Q » LET TSEPS = I 


GETV 18 
GETV 19 
GETV 20 
GETV 21 


s§? 
$0. > - 

a,* 7 * 

- 

15 

2fl 

loop . ••• ■' "■ ~ 

IF ISEPS EQ 0, GOeTO 30 ' 

RETURN • . ■ 

LET i_ ~ : """ - 


GETV 22 
GETV 23 
GETV 24 
GETV 25 


tr 1 c 


25 

_3JL 

RETURN 

LET IGO = 2 

RETURN 

JJEJ. IGO =__3l_ : 


GETV 26 
GETV 27 
GETV 28 
GETV 29 


•H, , 

c_. 


RETURN 

END 

SUBROUTINE ISSUE 


GETV 30 
GETV 31 
ISSUE 2 

. ....... LSSUE I 



SET LAUNCH AND FLIGHT SEQUENCE EVENTS 


DO TO 5, 

ie VDAir 


FOR I=(l> ( 3 » 

UISSLJU*: 00 LD_ SL 


ISSUE 4 
ISSUE 5 
ISSUE 6 
ISSUE 7._ 



LET VOATE ( I > = VDATE(I) 4- TIME 

IF VO ATE U> L T 0,» G O Tfl . S --_ 

LET VTOC I) = VTOII) 4- VDATE < I) 

IF VDATE (I) GT XTOCI) , LET XTDtl) = VMTEIlt 
IF VD ATE (I) LT HTOCIlt LET HTO(I) = VDATE C I) • 

LET yPAT£tI-t 0 , — — — 

5 LOOP 

LET FLYT = ORBTMUORQ) 

LET I LOAD ( 1 ) - PQ-UE ( I ORB I 

LET NQ = M <103-3-1 „ — 

LETILO A D UFl V = CITE M ( ILO AO ijTT^FO* J »il> IMQ- lT 
LET NHO = ANMB(IORB) . Ji^T- 
LET SU = <NHDFNINSU-i>/HINSU 

LET W G H a SII*WTSU-- = — 

LET WLEN = SU*LENSU 

DO TO IQ, FOR I=ti) (NQ> _ 

IF IRT i ILOAD ( I ) ) ?4E C, GO TO 10 
LET HGH g NGH » PAVHT C It OATH 
LET *LEN = »LEH + P4YLNT ILOA 

loop . . • ; ■ f -m: 

IF TRIG £4 04 WRITE 'OH 6» tSH 




*.*,14,* HEIGHT = *,06,* LENGTH = *,D6.1* *) 

IF TIME GT TIMES, CALL CSPAY 
00 TO 17, FOR J=(l> (NLdORB)) 

, LET M X ISATT . I . LO A ni J )- X- ^J^... ¥W .„.^ — 

' if T $olr E il? SAT «tlS ) ? 1 HE V* |\L£ T Fl Y T * SORtEII TS AT I NX* I 
IF IRT I TLOAOt JV> HE 0, 00 TO. 16 S • , g J 

C ALI St A TUS i MX»liMr4) &Z i — •: : 

CREATE ARRIV 

LET PSAT (ARRIV) = ISAT< ILO A0( J) ) 

LET PMOO (ARRIV) = IMOO ( ILO ADI J> ) 


IF SORTE (ITSAT (NX! J EQ 0., 15 

: LET GOT I M ( I L 0 A 0 ( J J ) = SORT£l>p| AT ( NX1 1 f • ; 

16 IF SORTE (ITSAT CNXI ) N£ 8., GO; TO 160 <££ 

CREATE, a ACK • — 

LET PSAT (BACK) = NX 
CAUSE SACK AT TIME ♦ PAOT ♦ FLYT 
160 CREATE REMQV 

( f- T DC A T t oruntM — MY 


CAUSE REMQV AT TIME ♦ vPAOT ♦ FLY? ~ 6./864Q. 
15 CALL 0R0PQ1 ILOAO( J) « IORB) 

17 LOOP • 

CREATE .. REF-VE 

LET VNAME (REF VE ) ■= SHUT 

LET PMOO(REFVE) = ISHUT „ 

CAUSE REEVE AT TIME ♦ PAOT 4- SREFT ♦ FLYT 


ISSUE 8 

ISSUE IQ 
ISSUE 11 
ISSUE 12 
ISSUE 13 
ISSUE 14 
ISSUE 15 
ISSUE 16 


ISSUE 18 
ISSUE 19 
ISSUE 20 
1 


ISSUE 22 
ISSUE 23 
ISSUE 24 


«y 

I 




f 


ISSUE 30 
ISSUE 31 
ISSUE 32 

ISSUE 34 
ISSUE 35 
ISSUE 36 
*TSSllF 


ISSUE 38 
ISSUE 39 
ISSUE 40 



ISSUE 46 
ISSUE 47 
ISSUE 48 
ISSUE 


ISSUE 50 
ISSUE 51 
ISSUE 52 
-XSSUE- 5l3_. 
ISSUE 54 
ISSUE 55 
ISSUE 56 
_XSSUE__ 5JZ__ 






LET I = TIME - TIME 3 «- 1. ISSUE 58 





__IE_I LE -1^-GO- .10 -2fl 

ISSUE 

59 





LET SUTFYII) = SUTFY (II +1 

IF I TUG NE Q* GO TO 20 • 1 v, 

LET CSaUKIORS) = CSHUTU0RS1 ,t>. . - ,1.-. :'*jsT 

_L£J-_aSHUX-( XQ5.fi-) .=? . WSHUTI 1 0&BI- 8 G-H __ : 1 

ISSUE 

ISSUE 

ISSUE 

TSSUF 

60 

61 

62 

ft! 




20 

IF ITUG EQ 0, GO TO 18 

CREATE REFVE 

LET V NAM E (REF \/E ) = TUG 

LEX _P_M0n (ftFFVF) = ..ITUfi 

ISSUE 

ISSUE 

ISSUE 

64 

65 

66 
67 





CAUSE REFVE AT TIME ♦ PADT ♦ XREFT ♦ FLYT 

LET VTUGCITUGl - Q :•* 

IF I -LE 0, GO TO 18 . 2.. . . . 

\ FT TliGF V ( T 1 ==... TllGFY I T) + 1 ... - *“■ “ ^ T i-.. . 

ISSUE 

ISSUE 

ISSUE 

68 

69 

70 

71 





IF ISEPS NE 0* GO TO 18 

LET EXVEH = E X0R8< I ORB ) - 

LET EX0R8II0R8) = 0 

TF FXVPH FQ 0 r LET EXVEH = EXPV (RQUP (IQRB ) ) 

ISSUE 

ISSUE 

ISSUE 

ISSUE 

72 

73 

74 

75 


» 


18 

IF EXVEH NE 0, LET EXTUG -= EXTUG f id 

LET WTUGIIORBI = WTUG1IQRB) * fc&H • 

LET CTUGdORSI = CTUG-UOR&S ' X iv ' *** - 2 v / 

TF TSFPS FQ fly GO TO 119 

Tissue 

issue 

ISSUE 

ISSUE 

76 

77 • 
7 8 

7 9 


U1 

1 

1 


CREATE REFVE 

LET V NAME (REF VE) = SEPS 

LET PMQD (REFVE > = ISEPS 

CAUSE RFF.VE AT -TIME-* RAO.X- 1 JPREFI. ..J- ELYT 

ISSUE 

ISSUE 

ISSUE 

ISSUE 

80 

81 

82 

83 






LET VSEPS<ISEPS> - 0. ; 'X „ . .<? ... 

LET MSEP = 0 

LET SEPF Y« 1 * SEPFY C tf' + 1 , „ ^ •• * 

(ft csFP<5.lf<iRfti. ~ csfps.t foam + t - * ' , > . ... - 

ISSUE 

-TISSUE 

mssrn* 

TSSUF 

<m : & ,r=U 

ma\ ' 
, 

87 er?; ,- ■ 


o o 
^ w 


19 

LET WSEPS(IORB> = WSEPS < I0R8) + WGH 
IF TRIG EQ 0* WRITE ON 6 

ISSUE 

ISSUE 

88 

89 





FORMAT 155** — — 

■“lobUt 

5 u 

91 


- ' 
. 

• «o 



LET NLU0R3) =0 - ^ y v ; : . ■' V, 

RETURN . , ,^/V ^ 0 * . 

FNnDfiFNQUS EVENT LAUNC 12121 ia£S -2 li V'^V3>> ■ . 

ISSUE 

ISSUE 

LAUNC 

92- ■ ' 

93 

94 


^ > 
eg 

c 

c 

c 

0 


THIS EVENT OCCURS HI 1H AN ACTUAL LAUNCH SCHEDULED WITH DELAYS • 
TT SP.HFOULES ARRIVAL IN QR8 TT 4 VEHICLE RFFURB _CYCL£* MODULE AND 

LAUNC 

LAUNC 

LAUNC 

4 

5 

6 


- ^ "5r - 

c 

G 

c 

c 


SATELLITE RETRIEVAL ;'RITH REFUR8; CLE' *. ./ ’f; 

PREDICT ABORTED LAUNCHES AND LOST PAYLOADS 

LAUNC - 
LAUNC 
LAUNC 
_ LAUNC. 

7 

8 
9 

10 



0 


LET IS = PSAT CLAUNC) 

LET IM = PMOO(LAUNC) 

JlEJlI&flY LAUNQ - . ... . 

LAUNC 
LAUNC 
LAUNC 
LAUREL 

11 

12 

13 

U* 



LET I0R8 = ORBIT < ITS A T ( IS) ) 






TO 5, FOR ALL ITORB IN ORB (IORB) , 
IS NE ISATCPITEHIITORB)), GO TO 5 
IH N£ IMOO{PXTEM< ITOR8H, GO TO 5 

i cPTHitnfn 


H { IOR3) GT Q«, LET M { IORB) = -WCIQRB). 
RQSEP(IORB) NE 0, GO TO 15 
IGO NE 0, GO TO 10 


RETURN 

LOOP 

RETURN 




FORHAT<S5*M5.2.2,S60,*PAYLOAO OUE TO GO - NO VEHICLE*) 
LET CVAtIGO) = CVAtIGO) + 1. 

LET VDATEtIGO) = VD A TE < IGO ) - TINE 

I 


LET NL ( I QRBI = 0 
CALL SHIP I 0,0) 

LET RQSEP(IORB) = I 
RE 

END ~ 

SUBROUTINE LOAT 


ALL LOVEHCIRFLG) 
ALL LOORBdRFLOI 
L LOMOO ( IRFLGT 




CALL LOSYS ( IRFLG1 
CALL LOSCH(IRFLG) 
GALL LOME < I RF LG J 
pai i i npiic 


IF IRFLG EQ 0* RETURN : , v . • 

WRITE ON 6 . .. 

FOR NAT C * 0 — RUN STOPPED DUE TO BATA ERROR 

crop 


ENG 

SUBROUTINE LOME < IRFL G) 


LAUNC 

LAUNC 

LAUNC 


c 

WRITE ON 6 



t 

FORHA T ( * 1 

l-CT T OF 1 r. = 

INPUT DATA*//) 
n 

# 




LAUNC 21 
LAUNC 22 
LAUNC 2 3 

I AIIMP. 9U 


LAUNC 25 
LAUNC 26 
LAUNC 2? 


•uifii 


LAUNC 29 
LAUNC 30 
LAUNC 31 


:Wiai« 


LAUNC 3 7 
LAUNC 38 
LAUNC 39 


LAUNC 41 
LOAT 2 
LOAT 3 

LOAT 5 
LDAT 6 
LOAT 7 


LOAT 13 
LOAT 14 
LOAT 15 





PRINT SCHEDULES > 

WRITE ON 6,IftU>,IA<2*,IA<3>,lA<M,9»IA(5l 


0 TO 200 





IF I A <i J £Q BLANK, 
LET MEGLD = 9 
let menew = 0 
QO T O t in, FOR... . 

IF IA (3) EQ MNANE !I 
IF I A (5) EQ MNAMEII 
LOOP 


ERROR DETECTED 


FORMAT!* 9A0 ME DATA •< ENTRT REJEG 
LET RTFLG = ,iv 

GO TO 100 - 


can:r»« W‘ics cat; m ? § w?i: 


ww fwll 


TF MCLAS (ME NEW) N£ ME, GO TO 111 
00 TO 120, FOR 1= C 1) < STSTB) 

IF IAI1) NE STNAM(I), GO TO 120 


LOME 15 
LOME 16 
OME 17 


Eiuis 


LOME 19 
LOME 20 
LOME 21 



LOME 27 
LOME 28 
LOME 29 



LOME 35 
LOME 36 
LOME 37 










LET PHOO(MESET) = NOMOD (MOOSY ) 

1 FT KFOTf « C ^FT1 - R _ ... — ~ 

LOME 
LOME 

55 

5 & 




LET NOMOOCHESET) * HE MEM 
FILE MESET IN HES 
GO TO 100 

Oftft DCTflOW 

LOME 
LOME 
LOME 
i nMF 

57 

56 

59 

60 



U ME HE 

END 

SUBROUTINE LDHOD(IRFLG) 

r ... 

LOME 
LOME 
LOMOO 
.1 QMQQ 

61 

62 

2 



C 

MODULE INPUT ROUTINE 

READ FROM 5 * NUMMQQ * F ft CT ’> A- ' 'V- A - ; -. v - 

cnatfA TiTi-fit. 3.4 M;-:?: • . : . 

LOMOD 

LOHOO 

LOMOO 

4 

5 




IF NUHHOO LE MITAB, GO TO 5 LOMOD 

MRIT^ ON 6, NUHHOO, MIT AS . LOMQO 

FORMAT (♦ ERROR - NUMBER OF MODULES INPUT (*, 16, M EXCEEDS C AP ACIT YLDNOQ 
♦ „ — - .-LOMOD 

d 

9 

10 

~LL~ 




f iftFi» i ■ , “ ' " r ; " v ' *•' 

5 ^MATlIifj^HOOULES INPUT*/* . NAHENS7* ALPHA F BETA F 

W0H.00 
> 1MHOO 

ttcohod 

12 : 

13 ■; -v 

14 

S3 „ 


1 

^ I 

00 j 

1 

C 

c 

r 

DO TO 10, FOR 1= ( 1 ) (NUHHOO) 
LOAD MOQULE DATA 

LDMOD 
LOMOD 
LOHOO 
. LOHOO 

16 

17 

18 

19 




* R ^ALPFtIJ,lfTSF( I) ”tFH01I> ,H0BHT J IJ .MOVOLU) , 

r^SWfHLtAWL :: - -■ UL.- • • ..... . 

PI 

EbWmmm 

hB 




*iR,TAU 

FORMAT! A 6*54,202.2,03,05, 03,1, A6, S3, 202 . 2, 01, 02 .21 
IF ALPFCI) NE 0., GO TO 7 

tp p pa fi- - an t n 7 _ ...... ...... 

LOMOO 

LOMOD 

LOMOO 

24 

25 

26 

.Z2 




LET B £f A F( I ) = 1 . ■ 

* LET ALPFCI t =-5TAU/AL0G(g) «*, tV •- ' ».-■ 

7 IF ALPHtI) EQ fl.» LET ALPH(I) = F ACT*ALPF$ IT 

> v fiPTftu i t • PO n - +<-. i F T «F T A • «> „ 


26 

29 -t%. . ^ 

30 

31 , 


J Aj 
§0 

G 

C 

r 

IF TTFHD <I) EQ 0., LET TTFMOI I) = . 5 *ALPF III 
PRINT MODULE DATA 

LOMOO 
LOHOO 
LOHOO 
LOHOO- 

32 

33 

34 

S3- 


157 £7 
«© ^ 


WRITE ON 6,HNAMe<i»,ALPFUt,BETAFa»tTTFHBm , ALPW <I> ,BETAH< I> , 
* HOOWTaiiHOVOLill.MCLASJI} 

FORMAT (S5,A6,S*., 707. 2, SA.A6) 

4ft i nno 4 ' '■* ^ .- 

. LOHOD 
LOMOO 
-LOHOD 
I OMftD 

36 

37 

38 

39 *_ 


' £* 0 
t3 

n_ 

RETURN 

ENO ■ 

SUBROUTINE LOOR8 C IRFLG) 

LOMOO 
LDHOD 
LDORO 
LDORB 

40 

41 
2 

3 







oo 


LOAD ORBIT DATA 


READ FROM 5,NQR8 
FORMA T < I 3 > 

IF N0R9 LE N0RB5, GO TO 


L00R8 

LQ 0R8 


•X) 

\ 


FORMAT ( * ERROR - NUMBER OF ORBITS INPUT ( *♦ I6» * > EXCEEDS 
♦*♦16, *) *> 

LET IRFLG = 1 
-X W RITE DM -6» NQRB 


LOORB 

LOORB 

LOORB 


v FORMAT ( 1 8#* 
WRITE ON 6 
:FORMAT (* 
*mXLE±t 


OR8ITS 

NAME 


IN PUT* I 

Sul 


CAPACITY CLOORB 10 
LOORB 11 
L00R8 12 
t nORR 1 3 


PER TOO 


RA 


VC UPPER SEPS 


L00R3 14 
LOORB 15 
SHL00R8 16 


DO TO 10, FOR I = ( 1 ) (N0R8) LOORB 18 

READ FROM 5^, 0R8I0 < I) , ORBOV (I) ♦ ORBP Of I) ♦ ORBRA <11 , ORBVC ( I ) , RQUPC I) , LOORB 19 
* RQSEP f I > ♦ RQSUT ( I ) ,DVKII LOORB 20 

: FQRMATCA.6t40S > 1 1 TA6,Q.5. « .n t... . LBOR3 21 


W FITE ON 6 ♦ ORB 10 ( I>, 0R8BVM) ♦ ORBPDtll » ORBRA (I) v ORBVC i I1,RQUPCIJ , 
♦ RQSEP1 I ) »RQSUT (I ) >DVltlt ^ ^ 

FORMAT t S3* A6, 407 • 1 , SI ♦ A6,Si * A 6* St ,A6,07*1I 
00 I0..5, FOR Jsrl 3 MNVFH1 " 


IF RQUPCH EQ NAMEV(J), GO TO 9 
5 LOOP 

LET J = 0 

IF R QU P XLI.-EO -BLANK » GO. T O. 9 


LOORB 

LOORB 

LOORB 

LOORB 


22 

23 

24 

25- 


26 

27 

28 
29 


LOORB 
LOORB 
LOORB 

-LOORB 

pSoRBrso 
LOORB 31 
LOORB 32 
LOORB 33 


LET IRFLG = 

WRITE ON 6 r-'- 

FORMAT { * -NO SUCH UPPER STAGE* I 

.Oft. T-0-2 i 


9 LET RQUP(I» = J 


LOORB 34 


2 00 TO 3, FOR J=(l» (NV£H) 

IF RQSEPCI) EQ NAMEV(J), GO TO 4 
X--LQQE ; 




LOORB 

LOORB 

35 

36 

37 

■<¥■ -7 • -met: '4 =^- ^ • . ; ;; 1 5CvE 

■ yv.:^ . IF- RQSEPfl), EQ BLANK, £Q TO 4 ^ ' 

•' - ; LET IRFLG * 1 . ^ 

¥RITF..'Ofr 6 • '' ' > 




; LOORB 
LOORB 
LOORB 
LOORB 

38 -=rnr . 

39. 

4 0 

.41 : , 


NO SUCH 

GO TO 6 

LET ROSE PCI I = J 
DO TO 7, FO R J=-(l> (NVEHI 


SEPS VEHICLE FOUND *1 


IF RQSUTMJ 
7 LOOP 

. LET IRFLG = 
—JARXIE—ON — 6, 


■EQ'#tAMEV ( J ly GO TO 3 


LOORB 

LOORB 


43 

44 

45 


FORMATt* NO SUCH SHUTTLE FOUND *) 
GO TO 10 

8 LET RQSU T < I ) = J 

JUL-L-OOP - 


LOORB 

L00R8 

LOORB 

LOORB 


46 

47 

48 

49 


LOORB 50 
LOORB 51 
LOORB 52 



RETURN 
cwn 


SUBROUTINE LOPUR 
C 

C PURGE MEMORY OF UNUSED MODULES 

--C s 

WRITE ON 6 

FORMAT C * t SYNOPSIS OF INPUT*) 

LET K = 0 
i stt m = n 


DO TO 6Q, FOR IMiMSTSTBI , 

LET NSYLF(I) = 1000, • yv- 

LET J = 0 

^lFLXSAXi-XJ----£Q--Q 1 

00 TO 79* FOR L- ( FSAT (I) ) ( LSAT < II ) 

IF MARKS (L> EQ 0, GO TO 79 
LET MARKS(L) = 0 

T I - 1 


T NMOOSTITSAra)) * , ''&&&- 

T MOCNTiNOMOD < MOSATIJ = i t FO^ALLMOSAJ IN 

OP . ' \JL-. J %*sl -s ,.: 


LOORB 54 

i r»/\nn r e 


LOPUR 2 
LDPUR 3 
LDP UR 4 

LOPUR 6 
LDPUR 7 
LDPUR 3 


IIIUUH 


LDPUR 10 
LDPUR 11 
LOPUR 1$ 

t M •**» 


LDPUR 14 
LDPUR 15 
LOPUR 16 


null? 


NOSUrSATCLI 


rml 


ISf! 



WRITE ON 6* SYNAM Cl) 

FORMAT!* UNUSED SYSTEM - * , A6 ) 
LET SYNAH(I) = 0 


i * k * *3S--- 

'# .LET M s M ♦ LSAT (II - 
tO LOOP 


TF 1*4 NE M, LET I = 1+1 

LET M = 1*4 

WRITE ON 6* M* SYORB 




LOPUR 22 
LOPUR 23 
LDPUR 24 
JLBPUR 25 
LOPUR 26 

TO i» 

t noiisj ?Q 


LOPUR 30 
LOPUR 31 
LOPUR 32 



00 TO 8 5* FOR I=U)CSITABI 
IF NMOOSCI) NE 0* LET K = K+l 
IF NMODS(I) NE 0* GO TO 85 

TU .G Q TO 84 

00 TO 83* FOR ALL NOS AT IN MOST I) 
REMOVE FIRST MOSAT FROM HOSTt* 
DESTROY MDSAT 


84 IF SNAME(I) EQ 0, GO TO 85 
WRITE ON 6* SNAME (I ) 

FORMAT!* UNUSEO SATELLITE - 


* ft 6 ) 


LDPUR 38 
LDPUR 39 
LOPUR 40 
LPPUR-4X 
LDPUR 42 
LDPUR 43 
LDPUR 44 
JJQPUR 46 
LOPUR 46 
LDPUR 47 
LDPUR 48 





FORMA T C * PROBLEM OSEO * SATELLITES OUT OF AVAILABLE 

LET K = 0 ; ^ •>". .. • •' ' - • ' 

QO. TO , 90 , FOR. I=M1MHIT.ABI ^ . " r. . tfSCv£ : .\;, M- 


IF MOCNTII) ME 0, LET K = K + 1 
IF MDCNT (I) EQ 0, WRITE ON 6,HNAMEtI> 
FORMAT ( * UNUSED MODULE - **A6> 

IF .MDCMig) EQ Q # -LEL- HNAHEIU...s_0 

LET MOCMTCH = Q N 

90 LOOP - - 

DO TO 6* FOR I=C1) CSYORB) 

— IE ITSAtm £Q B LANK* SO T Q . 6 

IF ITSATUI EQ 0, GO TO 6 
IF MOSCITSAT (I) ) IS EMPTY* GO TO 6 
DO TO 4, FOR ALL MDSAT IN MOSCITSATII)} 

C R£AT£- MODS Y 

LET NOMOOCMOOSY) = NOMODCHOSATT 
LET MUM CHOOSY) = 0 

LET SUMNU CHOOSY ) = 0 - - -■ v . / 

LET - H AXM.UIM.QjQS£1. -fl ; 

LET MINNUCMOOSY) = 500 
LET LOADF CHOOSY) = 0 
LET SUMLF C MODSY) = 0 

L FT M AXLF(MQQS Y ) = Q 

LET MINLF(MQOSY) = 1000'- 
LET MSTATCNOOSY) = 0 * - 


Jim CHOOSY! -„= : vjfRU CMOS ATI 
mFXLlg lrtQOS Y -r . -v 

4 LOOP 
6 LOOP 

WRITE ON 6*K,MITAB 
. F ORMA n*. P R OBLEM U SPH ♦» X3 ,,* 

%pret mmm?- / , 

, end , v • .**<^%* 

„ SUBROUTINE LOSAT C IRFLG) 

SATELLITE INPUT ROUTINE “ 

DIMENSION IAC25) *MOOLL<25) 


LOPUR 50 

LDPUR. _5 1 

**I3| LOPUR 52 

Z LOPUR 53 

LOPUR 54 
• "T- L OP UR 5 5- 
LOPUR 56 
LOPUR 57 
LDPUR 58 

LD PU R— 5.9 

LOPUR 60 
LOPUR 61 
LOPUR 62 

LDPUR 63 

LDPUR 64 
LOPUR 65 
LDPUR 66 

- LJlPm_67 

- LOPUR 68 
* 'LDPUR 69 
; LOPUR 70 

L P P .UR_ZX 
LOPUR 72 
LOPUR 73 
LDPUR 74 


Spur 76 
OPUR 77 
OPUR 78 


. FORMAT 1 1 3) 

If NUMSAT LE SIT AB 
WRITE ON 6* NUMSAT* 

—FORMAT!* ERROR. -r 

♦IT Y (* * 16 *) *> 

LET IRFLG = 1 
6 WRITE ON 6, NUMSAT 


GO TO 6; 


LOPUR 80 
LOPUR 81 
LDPUR 82 
JLflPUR. S3 
LDPUR 84 
LOPUR 85 
LOSAT 2 

LOSAT 3_ 

LOSAT 4 
LOSAT 5 
LOSAT 6 

JLXLSAI Z_ 

LOSAT 8 
LOSAT 9 
LOSAT 10 
*1 nSAT 11 
LOSAT 12 
LOSAT 13 
LDSAT 14 





* INCLINATION ORBIT MODULES SAT TT POLICY*) 

Ort TO ?* t I-i imwiiwsATi 

LDSAT 

...LOS AX . 

16 

X7 



c 

c s 

• . c 7 

LOAD SATELLITE DATA 

» r ft n ron m s t <: w ump f t i , KMT 4 T ) t T 5 » - v - ... . ■ 

LOSAT 

LOSAT 

LDSAT 

16 
19 
2 0 

-21 




* PRIORI I> ,INCL<I) ,ORBITII) ,N0 
*, TTSAT(I) .POLDN(I) 

*,SORTE« I» 

rnPMA T ( nc > j D? • ?, ?n4* AS, S 34,1^ »04* ✓ T1_ t 041 

LDSAT 

LDSAT 

LDSAT 

-LHSA-1 

22 

23 

24 

2-5 



c 

c 

r 

IF TT SAT Cl) EQ 3., LET TtSAT 111*411* 
PRINT SATELLITE DATA 

LO|A| 

LOSAT 

XOSAl_ 

26 

H 

?9 - 




WRITE ON 6, SNAME (I),SWT(I), SVOL €11 , PRIORI I) » INCL 1 1) , ORB IT I I) • NO 
*»TTSATII) , PGLDNI I ) 

*, S0RTEI I ) 

rnoM a t / a a. A. Aft*T«5- ^7.06,* Ifi* Q6) - . ... 

LDSAT 

LDSAT 

LOSAT 

30 

31 

32 

33 




LeT SGRTeif 1 * SORTEi 11 /360 . ; — — '^’"X 

0 i, FOR J*UI CN0R3SI * i „ ‘ , - fc ■ ' | 

If nmiUm me orsiout, so. to i ^ '**• ',/v* Vi; - 

1 PT f T f Tt = .! - ■ V-*' fe ... • ^ - ...^— 

LBSAJ 

LDSAT 

ho! AT 

34- 

35 

36 

-XZ_ 

. JJjp 

1 

ro 

CsJ 

\ 

GO TO 2 
1 LOOP 

LET IRFLG = i 

UPTTF f>W P 

LDSAT 
LDSAT 
LDSAT 
-LOS AI .. 

38 

39 

40 
4X. 



C 

. P- ^FORMAT C* ERROR - UNKNOWN ORSlT, ♦) '.'<**£['* ~ 

* 2 TO 15 ♦ FOR J*T1) (NOV.XTT ; . r ' ' •.".'/ " T ' 

• . .%'•*■* • -> .- . :.J. : o'. ... . 1 .,.> \ , if'M;.; V,.j , ’ ..-v,,. 

’ ■‘■■'PXtmxn Mhntn r * tqt Fn» ^flTFf i ttf. v .. . . ' * .♦ ^ .. •• 5as ....'.. w *• 

LDSAT 

LDSAT 

LOSAT 

a 

1L 



c 

READ FROM 5 « MODUL fJ>, IA ( J ) , MODUL IJ*1) , I A ( J*i) , MODUL I J+ 23 « I A 1 J*2| , 

* MODUL < J+ 31 , IAI J+31 , MODULI J*4) * I Al J*4I ,M0DULIJ*5) * I AIJ*5I , 

♦ MnniH U+fi) , I A (T+6) - - 

LOSAT 

LDSAT 

LDSAT 

46 

47 
46 

4 9L .... 




^ FORMAT 1 S 10f AGt A6 t A<*- f Afe* » A&, A4t 66* A4V$6* A4I . 

■tiPRIMT MOOULE LlSf.V^ ' : ^ ' "t 

LDSAT 
LOSAT 
tOSAT 
L O S AX 

5 0 ' 

5$ ' ' • 

52 • V 

53 


P c 

Si t 

& 

O 1 


WRITE ON 6 » MOOUL IJ)*IA(J) * MODULI J+ i> f I A <J* 11 * MOOUL IJ+21 • IA U+2 1 « 

* MODUL JJ+3),IAt J+31 * MOOUL CJ + 4) , I A C J +4) ♦ MOGUL C J+5 ) , IA 1 J+5 1 » 

♦ MOOUL (J+6)fIA(J+5) 

LOSAT 

LOSAT 

LOSAT 

■LPSAX 

54 

55 

56 

-5X 


& ■? 

JO 1 

C? :■■■ 


i 5''L OOP ■■ „ . .. .... . j, ...;■-• •■• 

DO TO 10, FOR J = ID IN 01, •.=" '-.. • P ‘.t ^ 

DO TO 20, FOR L*< ITtMIT A8I 

TP MOON? (J) FQ MMAMF:.*1 i , Cl) tn- ? ..- - — . ^ .. — 

/LDSAT 

LDSAT 

LOSAT 

-LOSAT 

58 

59 

60 

-61 — 


£K[ 

■ i 

C 

c 

— C- 

20 LOOP 

ERROR DETECTED 

LDSAT 

LDSAT 

LOSAT 

-LDSAT 

62 

63 

64 

J65 





WRITE ON 6 , MOGUL ( J > 

FORHATVSS,* fRRQP MfiOUI F - *,A6 t * - NOT FOUND IN MODULE TABLE*) 

LOSAT 

LDSAT 

66 

67 


,*■ ‘ C 

c 

LET IRFLG = 1 - 

GO TO 10 

pi) t ynnut f tn Sft mOS rfl own INC t ri sit Ft i ttf t 

LDSAT 
LOSAT 
LOSAT 
i ns&r 

68 

69 

70 

71 


c 

5 CREATE MOSAT 

CALL C0N(IA(JI,K> 

[ FT iiRU-i MDS-AT-l- j=_iC 

LOSAT 

LOSAT 

LOSAT 

72 

73 

74 
76 



LET NOMOOtMOSAT) = l 
FILE NOS AT IN MOS(I) 

1C LOOP . ' ' .. 

LOSAT 

LOSAT 

LDSAT 

-LDSAT 

76 

77 

78 

79 


_ c_ 

RETURN 

END 

SUBROUTINE LOSCH C IRFLG) 

LOSAT 

LDSAT 

LOSCH 

LOSCH 

80 

81 

2 

3 


c 

c 

SATELLITE SCHEDULE INPUT ROUT IKE , 

DIMENSION I A < 4V, A < 4|>J[Sl4) f , - 

.yRT.TC-QN-.fe ^.V- - - ■ : - ■ - - 

LOSCH 
LOSCH 
r LOSCH 
LOSCH 

4 ...:, . - 

5 :?■ 

6 
7 

1 

1 

> 

c 

c 

o 

FORMAT SCHEOULES INPUT* ) 
LOAD SCHEDULES 

LOSCH 

LOSCH 

LOSCH 

LDSCH 

8 

9 

10 

11 

' 

/• 

W READ FROM 5, IA<1 1 * 18 1 ILIA* t),IA<2) , IB C 2 ) , A <2 1 , I At 3)4 18(3) , Af 3 J , 
^l.A(4f iIfct4J ,At4l T ***& m ^ - >=• 

FORMAT < It, A 5 , S3, 04 .5,11 #A6 ,S3,D4. 5, 11, A 6 , S3* 0 4 .5,11* A 6 , S3, 04.5) 

r-iiirscH 

-LOSCH 

JiLOSCR: 

•iiiiflSCH 

12 

14 • : 

15 


c 

c 

PRINT SCHEDULES 

WRITE ON 6,IA (1) ,10(1) ,A(1),IAC2) , 13 <21 ,A(2)«XA(3) , Z8<3> , A (3) , 
, ...SI A (4) , Ifl Ukl^ASMl 

LOSCH 
■ LDSCH 
LOSCH 
. LDSCH 

16 

17 

18 

_1_9 


n 

FORMAT ( X6S2 » »A6 »S3 ,D4 .5,12, S2, A6,S3, 04 • 5, I2,S2, A6,S3,04. 5, I2*S2, 
*, S3 ,04. 5 ) 

IF IA f 1 ) EQ 0, GO TO 70 - ^ 

A6L0SCH 

LDSCH 

LOSCH 

-LOSCH. 

20 

21 

22 

2 3 . 


c 

c 

FIND SYSTEM ANO SAVE NEW SATELLITE LAUNCH IN NEWS 

DO TO o5, FOR K = (11 (4) 

IF TA (K> EQ 0, GO TO 65 

LOSCH 
LOSCH 
LOSCH 
- XOSCfcL 

24 

25 

26 
27 



^ W A (K) GT TIMES, GO TO 65 / -*;■* . ;..'V 

DO TO 66, F0p&$4l)*STSM) ' ‘ 

: i . IF I8(K) NE J?¥NAM<n*GQ TO 66^- •; - • .n* ■ 

. 1 FT J = LSAT1I) - FSATIT) X - ... ^ 

LOSCH 
LOSCH 
LOSCH 
.... LBS&i 

28 

29 

30 

31 



IF IA ( K) GT J, GO TO 64 

LET MARKS(FSAT UI-l + I A(KU = 1 

CREATE NEW 

LET SCHOKNEHl ?..AUa - 

LOSCH 
LDSCH 
LOSCH 
LDSCH 

32 

33 

34 

JL5 





oqo I ] ood I i ) ooti | cioo 


LET SCHSYCNEM) = 
-EILE - ME N -IN- N & W S 


FS AT { I ) -1 + IA <K) 


64 


GO TO 65 
LET IRFLG = 1 
WRITE ON 6,I4(K> ,I3IK> 

FORMAT! * £R5Ha^-MEM3£g 

GO TO 65 
66 LOOP 


NO * »» 13 « * - IS NOT I N SYSTEM,- », A61 


LOSCH 36 
i_aSCH37 
LOSCH 3ft 
LOSCH 39 
LOSCH 40 
XOSjCH... -41- 


error DETECT £0_ 


LOSCH 42 
LOSCH 43 
LOSCH 44 


LET IRFLG = 1 
WRITE ON 6, IB (JO 
FORMAT 1 S I »» ERROR 


65 LOOP 

GO TO 60 
70 RETURN 


SYSTEM N OT FO UND - - S A6I 


LOSCH 

LOSCH 

LOSCH 

-LOSCH, 


LOSCH 

LOSCH 

LOSCH 


46 

47 
46 


50 

51 

52 


SUB RO UT I N£ LOS Y S < IRFL6* 
SYSTEMS INPUT ROUTINE 


LOSCH-5-3- 


f V. ' 

■ : 4 


LOSYS 

L0SYS 

LOSYS 


2 

3 

4 
S, 


REAO FROM 5*NUMSYS 
FORMA T < I 3) 

IF NUHSYS LE STSTB, GO TO 1 
WR I TE ON 6 , NUHSYS ,. S TS T 8 


LOSYS 

LOSYS 

LOSYS 


FORMAT t* ERROR ^ NUMBER OF SYSTEM^ INPUT {%I6*J EXCEEDS 0 APACITY (LOSYS 
***16**1*) , t " , » ■. LDSYS 

{LET IRFLG = 1 ' v , ■ - , : *<r vikV LOSYS 

1 WRITE - ON - 6,NUfi S Y S — ^ ~ - •V.;^-4^s Ys 


FORMA T{7Ill t * SYSTEMS INPUT*/* 
♦ PHASE SAT PHASE 

LET J = 0 


NAME 

SAT 


NUP NTOT 
PHASE*) 


SYS TT 


SAT 


10 

11 

12 

JJL 


- 0 Q. . . IQ . . 6 0, - F OR. -X ^U li NUMSYSJ 
LET FSAT ( I) * J W U y 

LOAD SATELLITE SYSTEMS DATA 


LOSYS 14 
LOSYS 15 
LOSYS 16 

LO SYS 17 

•* sx - *■ ■ 


LOSYS 18 
LOSYS 1 
LOSYS 2! 
fiSYS 


-2L 


READ FROM 5 , S YNAM ( IJ , NFUP C I ) , NO,T T SYS ( I ) , 

♦ ITSATfJfl) , PHASE (J+l) , ITS AT ( J+2J , 

♦ PHASE CJ+2) , ITSAT(J+3) , PHASE ( J+3) 



TfttsysT T) £Q 
IF NFUP< I) LE 
rF NO LE 0, LE 




LOSYS 22 
LOSYS 23 
LOSYS 24 
nsvs 


NO * 


PRINT SATELLITE SYSTEMS DATA 


LOSYS 26 
LOSYS 27 
LOSYS 28 
LOSYS 29 


WRITE ON 6,SYNAM(I),NfUP(I>*NQ*TTSYS(I>, 
» ^JSAJXJ,*j^»£HASSq JLFL 1 


LDSYS 30 
LDSYS 31 
LOSYS 32 
LDSYS 53 



, ITS AT ( J+2i , PHASE <J *2) , ITS AT (J+3 ) , PHASE I J+3) 

LET NSAT Hi = NO 
IF NO LT 4, GO TO 5 

READ FROM 5.* ITS AT ( J+ 4 ) * PHASE CJ>4) * ITSAI f J*5) * 
PHASEC.1+51 »-XXSJtI( J + 6) .PHASEf J+-61 


LOSYS 

JLPSY-S. 


34 

-35- 


.PttA.yh UJJlUJ i n A.L (JtQ J-t KitiL 

FORMAT CS 20 , A 6 ,S 4 , 04 . 5 , A 6 .S 
WDTTt: nw fv.TT<:AT( 14-ul . PM A ^ I 


c 

c 

c 


i # »_ r uh.u-\ > <i ui 

. _ jV »^^ T ^-T'»^-'--'»A6,S4 t 04.5tA6,S4,D4«5> 

WRITE ON 6* ITS AT C J+4) * PHASE (J + 4), IT SAT < J+51* 
* , ITSAT CJ+6), PHASEIJ+6) 

O R M AT ( S 31 , A6 *06^ U S-4 »A&» Q6«.l * S4» A 6* 06 . 1) 


LOSYS 36 
LOSYS 37 
LOSYS 38 
LDSYS39 


PHASE C J#5> 


LOSYS 40 
LOSYS 41 
LOSYS 42 
LQSYS-A3- 


FIND SATELLITE 
5: i £t i -=.j-Lja 


LET L S AT II) = J 

00 TO 55* FOR L = ( FSAT (I ) ) (LSATi I ) ) 

IF PHASE CL) LT 0 M LET PHASECU = PHASE CL) 
LET ITSYSU) =. I. 


LOSYS 44 
LOSYS 45 
LOSYS 46 
-LUSTS. 4 7, 


+ 360. 


LOSYS 48 
LOSYS 49 
LOSYS 50 
LOSYS 3-1 


DO TO 45* FOR K = Cl) CSITAB) 

IF SNAMECKI EQ ITSATIL ) , GO TO 50 
45 LOOP 


LOSYS 52 
LOSYS 53 
LOSYS 54 
L0SYS_35 


i 

to 

Ul 

I 


ERROR OETECTEO 
LET IRFLG = 1 

WRIT E . Q N J b* IT SA T ( L ) , SYNAHCT) 


LOSYS 56 
LOSYS 57 
LOSYS 58 
LQSyS -5_9_ 


FORMAT CS3»* ERROR SATELLITE -**A6 NOT FOUNO, SYSTEM - *,A6> LOSYS 
GO TO 55 . ^ , ^ LOSYS 

50 LET ITSATCL) = K « - ^ LOSYS 

.55.. LOOP ' ' - - YS 6 3 


60 

6: 


60 LOOP 
RETURN 
END 

SU3SQUI-I-NE 




LOSYS 64 
LOSYS 65 
LOSYS 66 
L DVFH 7 


0 

G 

G 


LOAD VEHICLE DATA 


FORMAtf I3) 5 * N0VFH 


LDVEH 

LOVEH 

LOVEH 

-LOVEH 


I F NOVEH 
WRITE ^ ON 


LE N VEH f GO TO 
6 FRRnR M,N NUMnFR 


*Y<* *16* * I *1 
LET IRFLG * 1 
1 WRITE ON 6. NOVEH 


LOVEH 7 

L LDVEH 8 

LDVEH 9 

PE VEHICLES .IN P UT IT* 16* ♦) EXCEEDS CA P ACX TLDVEH 13 


LDVEH 

LOVEH 

LOVEH 

.LQVEH 


WRITE ON 
FORMAT ( * NAME DAYS ISP 
* LENGTH NS AT GE SOLID 10 
.... JKLIO - . 5-*— -FD-R-1= (.1) LN0V5H) 


♦ I 


WDV 


WPNU WCONV 


REFT 


EXP 


LDVEH 
LDVEH 
LDVEH 
1DVEM...18. 


11 

12 

13 

1_4__ 

15 

16 
17 




HEAD FROM 5»NAMEV(I) ,DAYSV<I) , ISPV (I> , WDV ( I ) , WPNU V ( I > , WCGN V tl J , 
» gFFTVf T I T EXgy < T > f PAVI v f n 

LOVEH 19 
i n\fF h 2Q 



*,NSTAG(I ) , SOLID (X) , ID VCI> 

FORMAT ( A6* 805.1*212, A 6) 

WRITE ON 6 » NAMEV ( I ) » OAYSV <I> , ISP V III* MOV (1),MPNUV(I),HCGNV(I), 
* RrFTVI T> t^TP-WI T1 * PAY! » IT..I 

LOVEH 21 
LOVEH 22 
LOVEH 23 
i nVFH 



*,NSTAGII> .SOLID (I) , ID VI I) 

F0RMAT(S3,A6t8D7. i,2I6,Si, A6) 

IF NAMEVCI) EQ, SEPS, CALL L OSEP ( WO V C I) , P A YLV < I ) , WCONV C I ) , ISPV ( I > , 
♦ WPNUVI T4 »F *PV < T ' ,nAYqv*T) f REFTV-T-XA* - ■ 

LOVEH 25 
LOVEH 26 
LOVEH 27 
i nuFH 



5 loop " ’ ;7 : : - • ;; . 

;v. RETURN 

! :€NO ^ .■ 

4 Sli&ontif T^F MA&KQ 

LOVEH 29 
LDVEH 30 
LOVEH 31 
N APKQ 7 


c 

c 

c 

MARK ALL PAYLOAOS FOR LAUNCH IN 0R3IT QUEUE I0R8 

1 ET NQ = n _ . . . 

HARKQ 3 
HARKQ 4 
HARKQ 5 
HARKQ 6__ 



if ORB1IORBJ-TS EMPTY, RETURN \ 

!»0 TO 5, FOR ALL IT OR 8 IN 0RBII0R8I 
^.,#IF LQTIH CPITEMI ITGR81 1 OT 3008*, GO T 0 5 -y&- ,-V- ' A 

HARKQ 7 
HARKQ 8 
HARKQ 91 

HARKQ 1 ft 


1 ' 

ro j 
cr- ! 

i / 

LET ILOAO(NQ) = PITEM ( ITORBl 

IF NQ EQ IL, RETURN 
5_ tAQR - 

HARKQ 11 
MARKQ 12 
HARKQ 13 
HARKQ U 


0 • 

RETURN ■ >■? X- > 

ENO .... V. :■■■ ^ 

•SUBROUTINE MCMOO " ■ ,v- \v t t\.:. , ■ - . < • * 

HARKQ 15 
HARKQ 16 
MCMOQ 2 
i 


c 

c 

STATISTICS FOR MODULES 

00 TO 5, FOR I=(l> (MITAB) 

JF Mnr f NT(T> ♦ si?i m f q n t r.a Tn i 

HCMOO k 
HCHOD 5 
MCM0D 6 
MCMOO 7 



..1 LET SI Zilli - ! 5 1 2 i 1 14 r ..HeCNTI 01.. '• *•• 

IF XI 21 Cil LT MOCNTII* , tm XLMII* = ttBCHf lit** 

IF Hl2Uh GT MOCNTIT) ♦ LET NilitI) * HOCNTIII • 

•* IF trio ‘Ng-yRTcyv an tn j ...IFr ■ - ••< - - ^ • i. 

MOMOD 8 * 
HCHOD 9 
HCHOD 10 
MpMon i i 



IF TRIG EQ 1, GO TO 1 

IF N121CI1 EQ X121(I), LET N12HI) = 0 
1 IF NOWAR(I) + S125(I> EQ 0, GO TO 2 ■ ■ , 

-LET S12MIJ — *■ N nwA RIP 

HCMOO 12 
HCHOD 13 
HCMOO Ik 
HCMfin it; 


- 

IF XI25C II LT NOWAR ( I ) » LET X125C I > * NOWAR4 1 1 
IF Ni 25 C IT GT NO WAR 1 I > , LET N125IX4 = NOMAftll) 
- IF TRIG SI TRIGS, GO TO 2 
* JF tqffi FQ 1 T r.rt Til ? 

HCMOO 16 
MCMOO 17 
HCMOO 18 
MCMflfl 1 d 



IF N125III EQX125II), LET N125(II = 0 
2 IF N0FAL(I> + SI 29 C I) £Q 0, GO TO 5 
LET S 129 ( I) = SI 29 ( I ) ♦ NOFAL(I) 

IF ..X129f.II LT N OFAUI-XX, — L£~I—X L2-9X..I-1 =„ N.QFAL Cl) 

MCMOO 20 
HCHOD 21 
MCMOO 22 
MC-MQD 2 3 



oOo i ! I I I ! looo 


IF N129II) GT NOPAL CD* LET 
IE Tfi MF T R IGS»_Gfl -XQ-5 


N129CI) = NOFAL(I) 


IF TRIG EG 
IF N129CI) 
LOOP 

&EXURH 


kh 


GO TO 5 
X129M) ♦ 


MCMOD 

HOilOCL 


LET N129CI) = 0 


MCMOO 

MCMOO 

MGMOO 

MCMO O 


24 

-25_ 


ENQ 
SUBROUTINE 


fiCS AT 


ST ATI STXCS FOR- SATELLITES 


MCMOO 

MGSAT 

MCSAT 

JMCSAT- 


00 

IF 

XEX 


TO 3* FOR I = ( I ) 1ST ORB) 

MOOCti IS EMPTY, GO TO 3 
S ?Z T t I I- =. S 72711 1» -SAXLE1I I 


MCSAT 

MCSAT 

MCSAT 

HCSAT 


26 

27 

28 

29 

30 
2 
3 

A. 


IF X227 ( I) LT SATLF(I), LET 
IF N227TI) GT SATLFCI), LET 
LET A = LFSAT Cl) 

LET SUHSLII1 = SilMSL 1.1) t-A 


X227CI) 
N227C I) 


- SATLF(I) 
= SATLFIII 


IF MAXSL(I) LT A, LET NAXSLU) - 
IF NINSLtI) GT A, LET HI NS L < II ~ 
00 TO 2, FOR ALL MOOSY, IN MOOCI) 
L E T SimMUCMnnSYi = S UMHULH.QI1SY.) V 


MCSAT 

MCSAT 

MCSAT 

MCSA T 


n 


NiiMliiaOSYl 


MCSAT 

MCSAT 

MCSAT 

J1CSAT. 


9 

10 

11 

12 - 


13 

ik 

15 

16l 


IF MAXNU (MOOSY) LT NUMCHOOSY), LET MAXMUCHOOSY) = 

IF MI NNU (MOOSY) GT NUM(MODSY), LET MINNUIMODSY) = 
LET SUMLF(MODSY) = SUMLFfMOOSY) + LOAOF C MODSY) 

IF M AXlF (MQ3SYJ LI. .LQAOF CHOOSY) .» LEI H&XLF (HQPSV) == 


NUM(MOOSY) 
NUM (MOOSY ) 


MCSAT 

MCSAT 

MCSAT 


GT 


IF HXNLF (MOOSY) 

LOOP ........... 

mr A = HALSTCDr-BEGSffll 
T F A Eft 0. » . GQ- .TC 3 1 


L .Q ADF (MO D S Y ).,j^JL£X-.M A XLF UjQQS-Yl?-! QADFJLHQQSX) HQSAX 

LOAOF (MOOSY) * J.ET HINLF (MOOSY) * LOAOF (MOOSY) MCSAT 


MCSA 

MCSAT 

MCSAT 

MfiSATL 


17 

18 
19 
21 L 


21 

22 

23 

2k- 


LET P = 100 • # SOT ST ( I ) / A 
LET PERSTCI) = PERST(I) + P 
IF N2 16 ( I I GT P, LET N216(I) = P 
IF X2 16X11 LX— P » LET X 216CI,) , = P 


MCSAT 

MCSAT 

MCSAT 

MJZSAL 


LOOP 

RETURN 

END 

■S UB-ROm LNEL 


MGtfFti 


MCSAT 

MCSAT 

MCSAT 

JtCV-EH- 


25 

26 
27 
2A- 


ST ATISTICS FOR VEHICLES 


J11L 


-10-1, FO R 1= (1) (NYEAR1 
LET SUM39CI) # 


IF MAX39 ( I) Ll; 
IF^HIN3 9 (f ) ^GT . 


IF MAX86 (I ) LT 
IF MIN86U) GT 
LET SUM90 ( I ) = 
JLE — MI N90 ( I) GT. 


SUM39CI )>TUGFYCI) 

TUGFY ( II r LET MAX39II) = T UGFYii I ) 
TOGFY ( I) iLET MIN 39 (II = TUGFYCII 

SUMBEXXl ± SFP.FY .fT ) ; 

SEPFY(I) 
SEPFY(I) 


SEPFY(I), LET MAXd 6 ( I ) = 
SEPFYCI) , LET MIN36 (I) = 
SUM9G ( I) + SUTFYCI) 


MCVEH 

MCVEH 

MCVEH 

-MCVEH 

MCVEH 

MCVEH 

MCVEH 

MCVEH 

MCVEH 

MCVEH 

MCVEH 

JiCVEH 


29 

30 

31 
— 2 


3 

4 

5 

- *- 

8 

9 

1L. 

11 

12 

13 




ooo boo: , • boooboo 


FT* HP AND TFST **************** *********♦**♦*♦♦*»♦*.♦»♦*♦♦****♦***» 

JF MqTAr JgMmmAEimEX) -£Q UP, -CALL -SBIBX PSAT<N E HH£ > , BMQQ CNE MM E I i— . 
IF MSTAT f PMOO < NEWHE) ) NE UP, CALL STATUS I IX* IY t 51 
DESTROY NEW HE • .. 

RETURN -W L ■, 

END 


NEHME 

NEWME 


NEW HE a 
NEW HE 9 
NEWHE 10 
NEWME 11- 


ENOOGENOUS EVENT NWS AT 
THIS ROUTINE WILL ATTEMPT TO SCHEDULE THE LAUNCHING OF A PAYLOAO 


NMSAT 
NWSAT 
NWS AT 
-NWSAT 


ON A VEHICLE, 
if WILL XNCLUOE 


FIRST LAUNCH CHECK TO SET FINAL 6 MONTH LATER GO, 


NMSAT 

NWSAT 

NWSAT 

NWSAT 


LET IS = PS AT (NWSAT ) 
DESTROY NWSAT 
CALL STATUSUS,G,i> 

I FT r - T fiOSY.. LIXSXS I IS) ) 


IF T EQ §*• GO TO 1 
IF TIME GT T, RETURN 
1 CALL SHIPCIS, 0) 

1 FT TH =& 


NWSAT 

NWSAT 

NWSAT 

NMSAI- 

NHSAT 

NWSAT 

NMSAT 

NMSAT 




10 

11 

12 

UL 


15 

lb 

XZ- 


LET DELAY = WSATN . . 

IF SSTAT(IS) EQ UP, LET OELAY = NSATU _ ^ 

IF OELAY GT TIMES - TIME, LET DELAY = TIMES - TIME 
TP OF! AY IT fl,, L ET DELAY = 


NMSAT 18 
NWSAT 19 
NWSAT 20 
NMSAT Z X 


LET OTIMECIS) » JIHE * DEL AY 


SCHEDULE MANDATORY LAUNCH: 


m?. 


■4 


NMSAT 
NWSAT 2 3 
NWSAT 24 
NWSAT 25 


IF SORTE ( IT SAT fIS) • 
CREATE LAUNC _ 

LET PSAT (LAUNCI = IS 
\ FT PMOnflAUNCl - IM 


NE 0«, RETURN 


JSUSE l AUNC AT T I ME ♦ DEL A Y 
RETURN . - 
ENO 

SUBROLITI-NF PA SER - ' f ; — 


NMSAT 26 
NWSAT 27 
NWSAT 28 


NMSAT 30 
NMSAT 31 
NWSAT 32 
BASER 2_ 


PHASING ALGORITHM 
I F T KSAT . . = — (L 


PASER 

PASER 

PASER 

.EASES 


, oo TO 5? FOR J = < 1) <NQ1 > ^:V 

IF IMOOtlLOADUn 4 IRT (ILQAD < JJ> 

5 LOOP 

L£ I- HLARK_=— D — — — — 

6 00 TO 9, FOR K=Ci><NQ~i> 

□ 0 TO 11, FOR J=<K+1MNQI 


EQ 0, LET KSAT - 1 


PASER 7 
PASER 8 
PASER 9 
EAS£R_1JL 


iu ruK 

IF ANGLEfILOAOm ) 
LET I = ILQAD 1KI 


LE ANGLE C I LOAD < Jl ) , GO TO 11 


PASER 11 
PASER 12 
PASER 13 
BA5E8-14 


LET ILOAO(K) = ILOAD(J) 

LET LLOAaJW—S-L 

11 LOOP 
9 LOOP 

LET CX = 0 

LET- JSAT - -NQ 

00 TO 12, FOR J=(2> <NQ> 

IF ANGLE ( ILOAD (J ) ) -ANGLE ( ILOAO(J-l)) LT CX» GO TO 12 
LET CX = ANGLE ( ILOAD( J) ) - ANGLEt I LOAD t J-i > > 

LET JSAT - -J 

12 LOOP 

360, - ANGLE flLOAQlNQI l-f ANGLEIILO A0«1) ) GT CX, LET JSAT 9 
JSAT EQ 1, GO TO 14 '•*; • • 

te MAO* CT i - ftft T ft Ik ' 


LET MARK = NARK «■ 1 

13 LET ANGLE4IL0AD(J> ) = ANGLE CIL0A3 ( J)) . - 360., FOR J=(JSAT1 
GO TO 6 


(NO) 



LET I LOAD (2 ) = IL0ADI1) 
LET I LOAD (1 ) = L 
GO TO 50 


IF IHOD i ILOAO I J> ) ♦ JRT M LOAQf J ) ) EQ ft* SO TO 21 

• '"‘■p V •* ^ 

TO 50' - : -V *V-* t 2 *' * < » , 5 ' - 

ANGLE (ILOAQI J M -ANGLE! iLnADil!) GT — — 

* ANGLE (ILOADCNQ) ) -ANGLE (ILOAD (J ) ) , GO TO 22 
23 00 TO 26, FOR K={l)CJ/2) 

LET L = ILOAD ( J-K+i) 



0 A 0 ( K J * L 


LET IJ =(NQ-J+l)/2 

00 TO 27, FOR K= < J) < J+I J-i) 

LET L = ILOAO (NQ-K+ J) 

ET I LOAD (K) « L 
27 LOOP 
V- LET J * NQ 

lift Til :91 


50 RETURN 
ENO 

SUBROUTINE PAYLQ ( IS, I M) 




PASER 15 

BASER -16- 

PASER 17 
PASER 18 
PASER 19 

BASER 2 A-_ 

PASER 21 
PASER 22 
PASER 23 

BASER -24- 

PASER 25 
PASER 26 
PASER 27 
PASFR 9R 


PASER 29 
PASER 30 
PASER 31 


BISM 


PASER 33 
PASER 34 
PASER 35 
.BASER .JA. 
PASER 37 
PASER 38 
PASER 39 


la-vwsa 


PASER 41 
PASER 42 
PASER 43 
PASER-44.. 
PASER 45 
PASER 46 
PASER 47 

PASER 49 
PASER 50 
PASER 51 
PASER— 52- 
PASER 53 
PASER 54 
PASER 55 
.BASER— 5-6. 
PASER 57 
PASER 58 
PASER 59 
-BASER -.60- 
PASER 61 
PASER 62 
PAYLQ 2 



C ENTER PAYLOAD INTO LOADING QUEUE AND ORDI T QUEUE 


PAYLQ 4 


LET PAY = SU*LENSU 
DO TO 20, FOR L=(l) <NQ) 

JJL I.MOD C.ILjQAD. LL > ) f X RTCILQAD lULL 


JUU 


PROP 

PROP 

PROP 


27 

28 
29 



C- 

CREATE ITORB • 

CREATE PAYLD CALLED IK 
LET PITEHTITOR3) = IX 
trr rcflTitiri = t<s 

;jL; 


r.tti u< 

PAYLQ 

PAYLQ 

PAYLQ 

PAY! 0 

6 

7 

8 

_9 



LET I MOD C IX ) = IM 
IF IN EQ 0, LET PAYWT(IX) 
IF IM NE 0, LET PAYHT(IX) 
IfT ANfilPITVl = PHASFfTSl 

= SWT II TSAT (IS) > 

- MODWT l NOMOO < IW) 1 


PAYLQ 

PAYLQ 

PAYLQ 

PAYLQ_ 

10 

11 

12 

.13 



LET IRTUXJ = RTFLG 
LET GOTIHIIX) = 0. 

IF Irt NE 8, LET PAYLRIIXI 
TF TM FO n. 1 FT PAYLN(IXI 

= 0. ,,, . TrS:, 

g- SVOtlf ITSATtTSll 


PAYLQ 
PAYLQ 
> . PAYLQ 
PAYLQ 

14 

11 

12 _ 



CALL RE D UN 1 1 S , I M > 

IF DELTA LT 0., LET DELTA = 0. 

LET LQTIMCIX) = TIME * DELTA 

FTI F TX ...IN. LOAD — . 


PAYLQ 

PAYLQ 

PAYLQ 

PAYLQ 

18 

19 

20 

_21 



Of- LET TO<S8C*TORBH« TIME * 

- * tPItE I f ORB I H ORBl I ORB) : 

- , RETURNS V . .. . ' - • ». 

v , . » •• * 

DELTA c ' * . >/ ^ 

' .. .$•; -- .x ' ' m ~ ' ; 

- V — t ' 

PAYLQ 
■v PAYLQ 
PAYLQ 
..PAYLQ. 

22 

23 

24 

25 - . 

1 

^ ) 
t ~ ' j 

» ' 

c 

c 

r. 

5 UBROUT I NE PR OP C I GO ) 

COMPUTE PROPELLANT REQUIRED TO DELIVER NQ ITEMS IN 

CLOAQ ARRAY 

PROP 
PROP 
PROP 
PROP- __ 

2 

3 

4 

-J5 


C 

rife 

j iff 

VOLUMEILENGTH) CONSTRAINT 

^VfiTMFwqrnw p*Fr;f ?ni f nviECiPAi. thfta <? ai f Ai2iu* 


PROP 

PROP 

.PROP 

ERQP— 

6 . 

7 

8 

9 



LET NMO = 0 
LET KX = 0 

DO TO 10, FOR J = (ll <NQ) ' ^ 

TF ^nPTF {TTSAT (TSATITL OAQ t.l 1 1 ) ) 0 , LEI. JOC 


PROP 

PROP 

PROP 

PROP... 

10 

11 

12 

-1.3— 

ii 


IF IMOOC ILOAO ( J) ) NE 0, LET NMO = NNO + 1 
10 LOOP 

If KX EQ 0, GO TO 1 

tf ky nr tm r,Q to _7n ^ 

■ 

PROP 
PROP 
PROP 
PROP .. 

14 

15 

16 

_L2 - 




IF NQ GT 1, GO TO 70 
GO TO 90 
1 LET KX = 0 

1 FT = PDl IP (THPrtl 



PROP 

PROP 

PROP 

PROP. 

18 

19 

20 

__21 


c 

LET J PAL^N°= P A YL V TRQSUT 11 ORB) | ’ 

■w ROUP ( ioaai NE M * LEI ; PALOLiS. PA Y.LV IRQUP C IORai-1 _ 


PROP 

PROP 

PROP 

... .JPRQP- 

22 

23 

24 

.25 ....... 

c. 



- 32 - 


LET PAY = PAY + SV OL < ITS AT < ISA T < ILOAO (L )> > > 


IF PAY GT PALEN* GO TO 70 

LET DAYS = 0 AYSV ( JKI 

LET WCONS = WCONV ( RQSUT C IORBI ) 




LET R A = OR9RA ( I0R9) 
LET VCQ = 25936. 

LET PI = OR9PO ( I 0R8I 

I F T bJPF T = n . 


LET WOEP = 0. 

let wserv = 0. 

OO TO 5, FOR js(i) CHOI 


If ■IF‘111 Hill! 


IF IMOO ( ILOAO ( J) ) EQ 0, LET WQEP = WDEP + PAYWT (ILOADt J> > 

IF IHOD ( ILOAO ( J ) ) N £ 0* LET WSERV = WSERV «■ PAYWT C ILOAO I J I > 
IF IRT ( I LOA 0( J) I EQ 0, GO TO 5 


LET WSERV =• HSERV 4- WTSU* SU 
LET WUPL = WOEP 4- HSERV 

LET HSPL-=.-aREX-»-WSERy 

if poawN ke oI uet; hspl ■= hret 

€F RQUP« IORBf £Q G, GO TO XM ■£ 

l&T NS » J&TAGUKf ' 




VV.&;. 


00 TO 40 , FOR NK= ( 1 ) < NS ) 

LET JX = JK ♦ NK - i 

IF EXVEH EQ 0, LET EXVEH = EXPVIJX) 

LET XVEH s EX A/ EH 

CALL LINKTCNK, ISPVCJX) , MOV (OX U V(JX* * WCONV < JXIfXVE H* 

f SOLIOUXI, WCONV (RQSUTUORSlW -* 1 ^ ™ ' 

#8 LOOP : •-*-••• . j | .• >v , 

IF ...NS .GT 1» CALL TWflflRC 01* » DV1 1 TOR BIX- , ... 

6 LET NLEG = 1 

LET PLEG(l) = WUPL 
LET OVLEG(l) = OV 

I-E— MQ-- cQ -1« GO -10.-10-043 , ; .. . . 

LET GDAY = 0AY$ * .5 • 

COMPUTE PROPELLANT; FOR SERVICING > /: 'f 

VOLUM eTlENG T H ) CONSTRAINT “ ~~ ' 

CALL PASER 
50 LET PANGLfil = 0. 

1 




PROP 32 
PROP 33 
PROP 34 

DQOtl 7C 


PROP 36 
PROP 37 
PROP 38 

DDOD 7Q 


PROP 40 
PROP 41 
PROP 42 




PROP 44 
PROP 45 
PROP 46 



PROP 52 
PROP 53 
PROP 54 

-P-RCLP SSL 

PROP 56 
PROP 57 
PROP 58 

PROP 60 
PROP 61 
PROP 62 

PROP 6l3~ 

PROF 64 
PROP 65 

PROP 68' 
PROP 69 
PROP 70 

-PROP 71 

PROP 72 
PROP 73 
PROP 76 

-ego blJA, 

PROP 76 
PROP 77 
PROP 78 


no 


FOR J=<2MNQ> 

00 T O 6fl » FO R MELT-5— 1-2JJUIQ) 
LET X = HSERV 
LET TO = 0. 

LET.NFF. = NO >2 -WFM&,-' 

LET lfl -=L_Tfl hi k BSi&mtiL 


PROP 

PROP 


□ 0 TO 5 5 t FOR J=(NFF) <NQ) 

IF I HOD (ILOAO(J) ) EQ 0 t LET 
55 LOOP 


i M l . » EOR J- ( 2 )iNFf ) 


PROP 

PROP 

PROP 

PROP 


60 

_ 8 l 1 


X s X * PA YWT (ILOAD(J) > 


COHPOTE PHASING PROPELLANT 


PROP 

PROP 

PROP 

PROP 


62 

83 

84 

_8S_ 


FLTXn<NFF) = 0 




LET IETA = ABS(PANGL(NFFn/TO*GDAY 
IF IETA EQ 0, LET IETA = 1 
LET ETA = IETA 


PROP 

PROP 

PROP 

PRO P 


86 

87 

68 


LET PO = PI* ( i« -PANGLYNFFI/ I366**ETft> I 
LET TO “ TO - AaSTPANGLCNffl) Vv 
LET FLTTKINFF) = ( PO*£T A) /I PI *38. * 12* I 

I gT^nav « on a v ~ pn/ p t *f T a • : 


PROP 

PROP 

PROP 

PROP 


90 

91 

92 
Si 




PROP 

PROP 

PROP 

■PROP 


94 

95 
56 
Si 


98 

lot 

1GJL 


i-N 

V* ) 


IF GDAY LT -.5, GO TO 70 
IF PO LT * 3 53 5*Pi * GC TO 70 
LET RP = RAM2.MP0/Pil**(2./3,|-l.l 
1 F T V C P s y e n ,* ... SORT 1 RQl/ RBI 


PROP 

PROP 

PROP 

PROP 


102 

103 

104 
JJLi 


LET QVO = 2** VCP* < SORT ( 1«/ f RA/RP) I ^SQRT (2 ♦/flRA/RP) * 1 1 > ♦RA/RP) II I PROP 106 
LET NLFG = NLEG ♦ 1 , - vr, PROP 107 
LET PLEG(NFF) = X 4. PROP 108 



60 

1000 

-LET fltf LEGCNEF 1 a.. OKA - ^ ; : 

LOOP 

LET NLEG = NLEG +1 

LET THETA(J-l) = PANGL ( J) * FOR J=(2)CNQ) 

TF RqSFPCTORR} NF Q. GALL SFPSV (NLFG-2 « Pl ff VCQ« THE T A( 11 «SLEG 121.1.. . 

1PKOP 

PROP 

PROP 

PROP 

PROP 

ms 

110 

Hi 

112 

113 




LET PLEC INLEG 1 = WSPL . ''V', ' ‘ ’ ~ 1 

LET □VLEg{j> E = , 0«LEG( FOT J=<1» IHLEGJ 

TF FXtfFH W ft, LPT PLFSTNLEO = I)--'- " ■- ^ ^ ~ v ■■ a ^ 

PROP 

PROP 

PROP 

PROP 

114 

115 

116 
117 




IF EXVEH NE 0* LET OVLEGCNLEG) = 0 

LET JKO - 0 

CALL CONECtNStJK.JKOJ 

If IQ.Rfl.Q_NE Qt GQ 10 64 . 

PROP 

PROP 

PROP 

PROP 

118 
119 
12 0 
_1j21 



LET ISEPS = a 
IF WP GT Q*»GO TO 6i-< 
-IE— RUSEHlI 0 RBI EQ -IU £& 


"1 cute 


LET WP = IQ 
CALL GET V ( I GO ) 
IF IGO FQ 3 i GO 
S4— L£-T- HP--=_ liU 


TO 65 


PROP 

PROP 

^ROR 

PROP 

PROP 

PROP 

JPRQP. 


123 
12 4 
X25_ 


126 

127 

128 

12i 





LET JKO 


1 


PROP 130 


CALL PRFORH<OVL£&,PLEG,NLEG f WP,**NEXIT, **MSEP f NT) 
L ET MSEP = 1 

If NT GT 1, LET WP = -10. 

WRITE ON fc«MT,ME 

FORMAT (2 15.04.2) 

IF NT GT 1, WRITE ON 6, NT 
FORMAT i * NO TUGS/SEPS *,I4) 

TF W*¥TT FO ft. I 


IF NEXIT GT 6, GO TO 110 
IF NEXIT EQ 3* GO TO 110 

IF NEXIT EQ 4, GO TO 110 ' CU 

65 L ET tfllQRBl-- ..-Kg — - - 

IF W(IORB) LT 0., RETURN 

AVE PREVIOUS GOOD LAUNCH SETUP FOR NEXT FLIGHT C IF SEQUENCE ENOS I 


PROP 132 
PROP 133 
PROP 134 

DODD 


PROP 136 
PROP 137 
PROP 138 
psno no 


PROP 140 
PROP 141 
PROP 142 

POPP 4 ■? 


PROP 144 
PROP 145 
PROP 146 



LET FLY = FLTIMINQ) + 6 ./< 24. *12. * 30 . ) 

LET NL(IORB) = NQ 

LET GOTIMULQAO(J) ) = FLTIMtJ), FOR J=tlMNQ> 

LET O R8-T HI IORB) -™. ELX — — — — „ 

V UT ANMOflORBI NNO .. t ■ 

LET CITEMaLOAfHJI) = XIOABIJ+D* FOR J - 1 11 INQ-il 
LET PQUE ilORSl * ILOAOI1I '&&'■: ^ > 

.HE TURN •/: -• - 

70 LET W(IORB) = -10. 

RETURN 


90 LET M(IORB) = —50. ' ^ e 

LET ML i I ORB I -..1 . " v .• ^ 

UXX-UXUMlILaAOtlU* 6^/6640. — — -- - ■ ^ -_ 

LET ORBTH(IORB) = SORTE ( ITSAT ( ISA T CILOADfl) ) I I 

LET A NMD ( IORB ) = 0 

LET PQUECIORB) = ILOAO(t) 


SHUTTLE ONLY OPTION 


IF WS PL GT WCONS, GO TO 7fl 
LET NL ( I ORB) = NQ 

LET W { IORB) = 100.M1.-WUPL/WCON3) 


PROP 152 
PROP 153 
PROP 154 

PROP 155 

PROP 156 
PROP 157 
PROP 158 

PROP 159 

PROP 160 
PROP 161 
PROP 162 
PRO P J-63 
PROP 164 
PROP 165 
PROP 166 

fPftflP 1 67 

PROP 168 
PROP 169 
PROP 170 

JUtOfi-lZl 

PROP 172 
PROP 173 
PROP 174 


PROP 176 
PROP 177 
PROP 178 
ERflE-lZA. 





LET ANNOIIORB) = SU 

LET Q PHTh>< I QgB.) = 2 . 4 » ./AaAJU. — 

LET CITEHC ILOAO ( J> ) = ILOAPCJ+IJ* FOR J^tlMNQ-l) 
LET PaUE(IORB) - ILOAOCi) , . 

... . RETURN . v . , - ,-r: * -• . • 

IE- IQRAO M£ Q ♦ GO - TO t /fl ^ . — ^ 

LET I ORB 0 = 1 
let NL C I ORB) = a 
LET WIIORBi = * 10 . 

-RETURN — 

120 LET I ORB 0 = 0 

LET WUORB) = - 10 . 

RETURN ■ — • -v,: 

4 UK 0-— -0 : — • 

VIORBOO 

END 

SUBROUTINE QDHP ( IS , IM, ILL) 

C REMOVES TARLIER. TduPUCATE PAYLO AO T^hToAOING QUEUT 
c ALSO BLOCKS HOOULES from ENTERING QUEUE 


PROP 180 
■ PROP. 181.. 
PROP 182 
PROP 183 
PROP 184 

RRQBLJJLS.. 

PROP 186 
PROP 18 7 
PRO P 188 

g£Q.g_j..a.a. 

PROP 190 
PROP 191 
PROP 192 


IF S0RTECIT3AT ( IS) ) NE 0., RETURN 
IF RTFLG EQ 0. GO TO 1 
IF NPOS CIS) GT 1, RETURN 


IF IM EQ 0, GO TO 2 _ _ 

IT IMOO C PItEM ( IT ORB 1 1 EQ 0, GO TO 7 
5 L COP 

r. f to 3 


2T C. ft.-L DRGPQ t P I TEH (IT ORS) » lORBi 
LET NLCIORB) = 0, 

GO TO 1 ; : ?V ' : i: F- ■ 


QO«P 

QOHP 





poo obo 


i 

u> 

r a 


SU9RQUT INE REOUN(IS,IM) 

L E T DE L TA -s — Q 

IF Irt E 0 0, RETURN 
LET EDO (IK) = 1 
LET IX - 0 

30 TQ.S»--fQ&. A U MOQSY 


IF NRUtHQDSY) E0 0, GO TO 5 
IF NRU< M ODS Y) EQ 100, GO TO 
IF NRU ( M ODS Y l EQ 1, GO TO 3 
-1FL-IX— ME 0. GO TO 


m MOO LIS) 


LET IB = 
LET IX * 
LET IY = 


mUCHOOSY) 

G 

KOQSV 


00 TO u FOR I=(l) <IX) 

IF IN EO IK, LET IY = 1 
IF EOOIIK) NE 0, LET 13 = 
-L-EI— IX - js— S H O O ( I K ) 


19 ♦ 1 


LOOP 
IF IY EQ 
LET 18 = 
IF 18 6 T 


0#: GO TO 5 

X*» -> • NRU C SMOOl MOOSYJ > * IB 
n* LET DELTA - S&T 


L& 


IF 18 EQ 0, LET DELTA = -3000. 
RETURN 

3 IF IH NE MOOSY, GO TO 4 

LET -QEUA-^5- 3000. 


RETURN 
4 LET IX = G 
LOOP 

llll RET U RN 


END 

EXOGENOUS EVENT REFMO 


THI S R O UT I NE T A KES -.Q A . RF OF RFFU83 OF -MODULES 


LET IN = PNDO aiREFMO) 

LET HOC Nil jpT = NDCNT < INI 
-DESTROY ggFaa 


♦ 1 


$r- 


IF TRIG EQ 0, WRITE ON 6,T IME , MNA ME CIM ) 
FORMA T(S5*M5.2.2,S43,A6,S4, *REFURB I SHED*) 
RETURN 
-END- 


ENDOGENOUS EVENT REFSA 

THIS ROUTINE TAKES C fRE OF REFUR3 OF SATELLITES 


RETURN 

ENO 

ENDOGENOUS EVENT REFVE 


REOUN 

-R£QUN 

REOUN 

REOUN 

REDUN 

R EQUN 


REOUN 8 
REDUN 9 
REOUN 10 
REQUN^LX 


REDUN 12 
REDUN 13 
REOUN 14 

REDUN 16 
REDUN 17 
REDUN 18 


REOUN 20 
REDUN 21 
REOUN 22 
REQU&-23 


REDUN 24 
REOUN 25 
REOUN 26 


I UN 28 
REOUN 29 
REOUN 38 
jBEDUN 31 


REDUN 32 
REFMO 2 
REFHO 3 
-REF HO 4 


REFMO 5 
REFMO 6 
REFHO 7 
-REFMO 8_ 


REFMO 9 
REFMO 10 
REFMO 11 
REFHO 12 


REFSA 
REFSA 
REFSA 
-REES A, 


REFSA 

REFSA 

REFVE 

REFVE, 



THIS ROUTINE TAKES CARES OF REFUR8 OF VEHICLES £ 



& 

, i • 

IF VNAHE (REFVE* EQ SHUT, GO TO 1 
IF t E X V E H HE 0 , GO TO 2 c; / 

REFVE 

REFVE 

REFVE 

REFVE 

6 

7 

8 

3 .- - 



2 

FORHAT<S5?M5l 2. 2tS3tSfcO» A6» IT»Slt ♦REFUR9ISHE0*) 
if T vname<refve> eq seps, go TO 6 

T F UMAMF ( 3? FU?) r a < rHUT t GO TO b 

REFVE 
REFVE 
REFVE 
REFVE . 

10 

11 

12 

JL3 .. - .. 




LET IC = IC * VTJG(I), FOR I»<1> (NTUGI 
LET VTUG (PMOO (REFVE) > = 1 
IF IC HE 0, GO TO 15 

r:n t n \ n . " ! - - 

REFVE 

REFVE 

REFVE 

REFVE 

14 

15 

16 -■ 
AJ 



5 

LET IC = IC + VS HUT ( I ) ♦ FOR I=(1MN3HUT> 

LET VSHtFFfPMODIREFVE) > = i 
IF IC ME 0, GO TO 15 

r.n m i n _ _ . .. 

REFVE 

REFVE 

REFVE 

18 

19 

20 

_2_1 _ 



6 

in 

LET IC = IC + VSEPSII), FOR I* tl) t NSEPS) ^ 

LET VSEPS (PHOOIREFVE) J =;i . ' 

IF IC HE 0, GO TO 15 w "y ^W : ," 

nr rn n T fop i= ( i > (nqRbs) - < 4 - 

me fve: 

REFVE 
REFVE 
_ R£EVE_ 

22 

23 

24 
ZSl 

3 : 



LET I ORB = I 

IF ORB (I ORB) IS EMPTY, GO TO 11 
IF MII0R3) GT 0, , GO TO 11 
r.fit i fXFTm tan* .- — 

REFVE 

REFVE 

REFVE 

REFVE 

26 

27 

28 

_2 a , 



11 

-■1 ft-. 

IF I GO HE 0, 'GO TO 'll" w r * * , ** ^ Za '. w 

CALL SHI P<-1, D> 

LOOP 

nr<tt env ppfvf ** * . L — ~ - 

~ REFVE 
« REFVE 
| REF VE 

30 . 

31 

32 
_I3 

P O 

r. 

/ 

return 

ENDOGENOUS EVENT REMO V 

REFVE 
REFVE 
REMOV 
RE MOV 

34 

35 
2 

X 

. .„ r 

A— < 

^ Q 

• l.g 

C 

: G 

v SATELLITE FROM 0R8XT ’ . " , , */ * , ' 

:.y let is * psaiiremqv) * 

■••v ■ I FT Npn S rrs^vra' N P DS LI S ) - iLhi : ^ - •- •: 

GREHOV 
REMOV 
REMOV 
.. REHQV. 

4 

5 

6 
J 

52. Jg 

C 

r_. r-v 



CALL ST A TUS (IS, 0 * 9 i 
CALL QOMP(IS,0,IL) 1 

DESTROY REMOV 

REMOV 

REMOV 

REMOV 

REMOV 

8 

9 

10 

_li- .. ... . 



a w 
R 53 

G. 


EMD , -■ , - 

ENDOGENOUS EVENT RETRI 

rare ynjirTWF TAtfFS OARF OF RETRIEVAL -OF SATELLITES ..... 

REMOV 
RETRI 
RETRI 
RETRI 

12k,,. ■■■■ 

3-.' 

-4 


C 

LET RTFLG =1 ^ 

CALL SH I P (PSA T {RETRI ) ,0) 

LEJ — ST F LG JI - - 

RETRI 

RETRI 

RETRI 

. --REJRI 

5 

6 
7 



DESTROY 

..RETURN-. 


RETRI 


RETRI 9 
■REIRL-JJL 


END 

ENDOGENOUS EVENT SATON 

SATELLITE VDLUNIA&J-Ur..-jG0£S--aaNN T IME 


RETRI 11 
SATDN 2 
SATDN 3 
SAXON h. 


LET IS = PSAT (SATDN) 

DO TO 200, FOR ALL MOOSY IN MODUS) 
CALL qaHP(IS,MQOSY«-I!U 

■too, 


SATON 5 
SATDN 6 
SATDN 7 
SATDN a 


LOOP 

GALL STATUS US, 0*3) 
LET HARKSIIS) = 0 
DESTROY ..SAT ON — 


SATDN 9 
SATON 10 
SATDN 11 
SATDN 12 


RETURN 
END 

S COROUTINE 


LET JSY 
XF IPOL 
I F I POE 


SAVER ( T2 , I SI 
Q LON.4 jlSAJ 1I5UJ , 

ft 4, 


s;itsys(ist 
' 2* RETURN - 
A, RETURN : 
m 2+ . 00 Tfl IS. 


SATON 13 
SATON 14 
SAVER 2 
SAVER 3_ 


SAVER 
fSAVER 5 
SAVER 6 
&AVE R.- _Z 


t 

U) 

<x> 


SCHEDULE SATELLITE RETRIEVAL (RETRI) AT TERMINATION TIME +- 




SAVER 
SAVER 9 
SAVER 10 
SAVER 11 


INCEL RETRI CALLED MARKOUSl 
OESTROY RETRI CALLED HARKOIIST 
LET MARKO IIS) = 0 V 

1 L ET - X-Jg -T-2 +-MAX.ZZ. 


SAVER 12 
SAVER 13 
SAVER 14 
SAVES IS 


IF T LT TIME, GO TO 10 
IF T GT TGOSY(JSY), GO TO 10 
IF T GT TIMES- WSATN, GO TO 10 


SAVER 16 
SAVER 17 
SAVER 18 
SAUFB 1 9 


JSX PSATWWp - IS 
CAUSE RET§I#f T v 
10 IF IPOL GT 3, GO TO 20 


SAVER 20 
SAVER 21 
SAVER 22 
SAVER 23 


SCHEDULE NEW SATELLITE (NHSAT) AT TERMINATION TIME ♦ - 

IF MARKUIIS) EG 0, GO TO 2 
CANCEL NHSAT CALLED MARKU(IS) 


SAVER 24 
SAVER 25 
SAVER 26 
SAVER 27 


DESTROY NWSAT CALLED HARKUUSI 
LET MARK U4I Si F" 0 
2 LET T = T 2 ■£>■ \ • 

1F-X GT TGOSY (4SY1 ■» -GQ - TO - 2D 




SAVER 20 
SAVER 29 
SAVER 30 
SAVES _3X 


IF T LT TIME, GO TO 20 

IF T GT TIMES- WSATN , GO TO 20 

CREATE NWSAT 

..LET. PSAT (hlWSATl =-IS 


SAVER 32 
SAVER 33 
SAVER 34 
SAVER__35_ 


i 






CAUSE NWS AT AT T 

3FTU3N . ... .. . . 

SAVER 

SAVER 

36 

37 



. END •' < A • • 

> SUBROUTINE SHIP tIS,TH> ^ 

THT<: TMF 1 fl&nTNJ^' gftMTTMF _£ • ~ v 

SAVER 

SHIP 

SHIP 

SHIP 

38 

2 

3 

4 


c 


IF IS GT 0, LET I0R3 = ORBITf IT SAT (IS)) 
LET EXVEH = EXORB(IORB) 

TF i. f n f r,n Tn an 

Ie * ' j 

5 

6 

7 

__3 



1 

IF in EQ 0, GO TO 1 
IF EXHOO EQ 100, RETURN ~ 

CALL QO«P(IS, IH,ILL1 

TF TH Mg Q t REXURig . . .1 

SHIP 

SHIP 

SHIP 

SHIP 

9 

ll 

TP • 



6 

CALL PAYLQCIS,IM) 

CALL GE-TVIIGO) 

IF HCI0R8J GT 0., LET W(IORB) = 0, 
TF ORB (I ORB) IS EMPTY, RETURN 

SHIP 

SHIP 

SHIP 

SHIP 

13 

14 

15 

16 

i 



IF NL ( I ORB) EQ IL, GO TO 10 * . > 

IF WI IEMRBI LT 0., GO TO 10 - ■ . •:> . ' ^ ; 

IF Mt IOR31 GT 0., RETURN ^ 

C t MARXQ - . . - ->• - -v. - ... ■ I 

\-shIp 

SHIP 

17 

18 ' v:-.; s 

19 - ■■ r 

2 0 . ... .: 

— — — w 

vD ’ 

i 



IF NQ EQ 0, RETURN 
CALL PROPUGO) 

LET E X0R8 ( I0R8) = EXVEH 

TF WCIflRfl) GF. Q„., RETURN ' _ 

SHIP 

SHIP 

SHIP 

SHIP 

21 

22 

23 

2k 

' 

c 


IF IGO EQ 3, RETURN ^ 

LAUNCH PAYLOADS QOEUE : , 

SHIP 
SHIP 
•SHIP 
£ SHIP 

25 

26 
27 

J2A. 



10 

IF NL C I ORB) EQ 0, GO TO 30 
IF IGO N£ 0 , RETURN 
CALL ISSUE 

LFT W(fORfl) = 0 . _ 

SHIP 
SHIP 
SHIP 
.. SHIP. 

29 

30 

31 



31 

LET NL d ORB > * 0 - • ■ ^ < 'X . - - ' 

LET EXVEH' - FXOR8.MORQ) <. >, , , 

GO TO 30 :,y-. 

1 FT .1 =; ■■■PTTFMIFnRRf TOPR-U V- _ 1__ 

SHIP 

SHIP 

;;;;3^p 

33 

3k 

■ 

36 -:n - •'• . - . 




IF W( IORB) EQ a., RETURN 
LET NX = IS AT ( J ) 

LET NH = IMOD(J) 

TF FXUFH FQ D, GO TO fiQ 

SHIP 

SHIP 

SHIP 

SHIP 

37 

38 

39 

JkJL . - 



32 

CALL ST A TUS l NX , NM , 7 ) " { ^ ' 

CALL DR OPQI 'J * I ORB) , 4 « ' 

LET E XV EM = u =.-■■' ? ' ' .;V? , s 

LET FXORB(tQRB) =_0_^_ L 1 ‘ - ■*■ 

; SHIP 

4flf' 

4 mm 

43 

J* 4^ 



30 

LET TRIGS = 1 

IF ORB (I ORB) IS EMPTY, RETURN 
LET I = 1 

LEX. NLf IQRB)-^J0 

SHIP 
SHIP 
SHIP 
- SHIP, 

45 

46 

47 

JlQ_. 




ouo 


LET W ( I ORB) = 0 

QO T Q - - + 0 1 FOR — MJ — UOiga-XM-OSB (I3R3) 

IF LQTIM<PITEM(ITQRSn LT 3000*, GO TO 35 
IF IS GT 0, GO TO 40 
35 LET NQ - I 

LET -ILflA-QINOl— =— RI.tEMI ITORBI _ ii 

CALL PROPUGO) 

LET EXORB C I ORB I = EXVEH 
IF W(IORB) LT 0, , GO TO 50 

L£I — I— = — I — ± — i _ 

IF I GT IL, GO TO 10 

40 LOOP 

IF IS L£ Q, GO TO 10 

IF IS RETURN - ! . , 

41 LET NL(IORB) = 0 
LET WCIORB3 = 0 
RETURN 

- 50 - I F N L ( I Q RB I NE- IU -GO- IQ. IQ 

• ' IF 160 EO 3*- RETURN • 

GO TO 31 - 

6*<?I£ R«UPIIORB> EQ 0, GO TO 32 ^ ^ .. 

IF RQSEP-aaRa>. m Gn To 32 - : .. ^ ^ >. 

LET EXVEH = 1 

LET EXORB(IORB) = 1 

LET NL < I ORB) = 0 

CAU.~ST4IUSmX+SM,lQ) 

GO TO 10 ■■■;. . .. ;.r \ 

END • ' : ; 

ENDOGENOUS EVENT START V 

~ THIS ROUTINE WILL INITIALIZE EACH MONTE CARLO CYCLE 

SET UP EVENTS FOR NEW SATELLITE LAUNCHES 

/ :LET MSEP = 0 “ ■ , -- >[ “ ‘ 

... LET NEXIT = Q ^ - 

: 00 TO 2 « FOR I*MMSY0RB1 ' . ' ' 

LET . .ur um .a . 0 . ... . L— ; - •• «■ - : . -■ 

LET LFSATII) =0 
LET BEGS T (I ) = 0 
LET TLASTII) = 0 

LEX-SOrS.I-i.IL-g- -0 

LET NPOSII) = C < - . 

* IF MOO C 1 1 IS EMPTY, GO TO 2 

00 TO 1, FOR ALL MOOSY IN HOOil) 


LET LOAOF (MOOSY ) = 0 
LET MSTATiMOOSY) = 0 
1 LOOP 


SHIP 49 

-SHIP- 5IL 

SHIP 51 
SHIP 52 
SHIP 53 

-SHIP 54- 

SHIP 55 
SHIP 56 
SHIP 57 

SHIP 53- 

SHIP 59 
SHIP 60 
SHIP 61 

-SHIP S2_ 

SHIP 63 
SHIP 64 
SHIP 65 
SHIP— 6-6- 
SHIP 67 
-SHIP 6 3- 

Ship m 
J tttS* ZJL 

SHIP 71 
SHIP 72 
SHIP 73 

SHIP Z4_ 

SHIP 75 
SHIP 76, 
g|TART g 

START 4 
START 5 
START 6 

START ZL 

START 8 
START 9 
START 10 

START 12 
START 13 
START 14 
..START .-15- 
START 16 
START 17 
START 18 


START 20 
START 21 
START 22 


I 


s?7 M *PH5 nNni %r.Tr ^\ 


SYSTEM STATUS SATELLITE STATUS 
♦ VEHICLE STATUS* ) 

DO TO 10, FOR ALL NEW IN N£WS 
. LEI -IS a SXHSXl M£ tt l_ ; 


START 24 

I-Id£ — HIS T O RY O F B ASF CYC1 E*/S5» * T JLMESXARJL 2 5_ 


LET DTIME II S) = 0 

LET STAT tITSYS ( IS ) ) = DOWN 

LET SSTATCL) = DOWN, FOR L = (F S A T C I TSYS ( IS ID CLS AT C ITSYS (I S 


MODULE STATUSSTART 26 

START 27 

. START 2 8 

START 2 9 


>n 


LET PSAT (NWS AT) = SCHSYINEW) 
LET PMOOCNWSAT) = 0 
CAUSE NWSAT AT SCHOTCNEW) 

JjQ L-OOP 


START 30 
START 31 
START 32 
-SXARLJ1Z 


IF TRIG FQ 0, WRITE ON 6, TIME 

FORMAT ( * **S4*M5«2*2<i S3** ST ART SIMULATION*,//) 
LET VSHUTCII = 1, FOR I=<1) INSHUT) 

UE -T- ... .V-I-UG-LU — = — 1^— F (NIUGi 


START 34 
START 35 
START 36 
STAR T 3 7 


LET SUTFYII) = for 

tfT sepf Y in =.-■ 8 ; , mm 

LET VSEPSII) * 1, §§« 


LET CV A 1 1) .= 0 
LET TGOII) = 0 
LET TGOSYII) = 
LET a£DSY.U)— =. 


XfiX) INYEAR) 

i*ll! CNSEPS) 
Is.1.1 MNYE AR. ) 


START 38 
START 39 
START 40 

■SIARILAJL 




FOR 1=11) C 3) 

FOR 1=11) ISY0R8) 

. , FOR 1=11) ISTSTB ) 

EH&- i.=ii ) .( sisr b j 


START 42 
START 43 
START 44 


LET TLASYII) = 0., FOR I=!i) ISTSTM 
LIT SOTS Til) = 0., FOR 1= < IT I STSFB 1 
-CREATE TERM ^ .? 

S&11.SE TER$i-.AJL3(l0fl 


START 46 
START 47 
START 43 
-START— 49 


START 50 
START 51 
START 52 

: START, 5-3- 

START 54 
START 55 
* START 56 

START 57 
START'58 
♦ *»****?.*»?«.* START 59 

x ' 4 ; ' .START 60 

mwmiW'"’ iTART^If' 
START 63 
START 64 
S TATUS 2 


S 9 




^ § 


£ 


DESTROY START 
LET HOC NT 1 1 ) = 0, FOR 
LET NOWARII) = 9, FOR 


I=Ci) (MIT A3) 
I=(l) (MITA3) 
XbJJJJJLUj 


•F ' LET EXOR3II) * 0 , FOR I-(1MN0R3S ^ 

' #***♦♦* 

mini t i a u- 2 £*mnm otf All satellites f.If ' ^ 

■I^£AT£-^£HME EV E N TS 


9999999999 *9999*9*99999 94-99 

RETURN 

END 

SUaRQUI-liNE- SIX IDS 1 IS « IM , 1ST ) 


IM = 0, SATELLITE 

IM = +, REPLACEABLE MODULE 


C 1ST = 1, AVAILABLE 

C 1ST = 2* UP 

C 1ST = 3, DOWN 

X — . -LSI— = -J-AUMCHEJl - 


STATUS 3 
STATUS 4 
STATUS 5 
STATUS, 
STATUS 7 
STATUS 3 
STATUS 9 
-STATUS! Q. 



facto: pooobo 


1ST = 5, ME UPGRADE ^ ^ 
XsJL^- 6, SATfJ l TTF RETRIE VF O 


1ST = 7, 
1ST = 6, 
1ST = 9* 


PAYLOAD IS TOO HEAVY, NOT FLOWN - DROPPED FROM QUEUE 
WARNING ON MODULE ^ T 

SATELLITE RE HOVE 0 FROM 0R8I T 


LET DELTA =0 
LET JST a ITS AT ( IS) 
LET JSY = ITSYS(IS) 
- IF IH ME O r — L ET J M D 




LET HALSTIIS) = TIME 
LET HALSYI JSY I = TIME .* 

IF 1ST EQ 2, LET JST AT - UP 
IF 1S T E- Q 3, 1 F T ISTST.;.is B O HN - 


tF TRIG2 EQ i, GO TO 10 
GO TO (10,6,5,10,10,10,10,2,4,10) 
d IF IH EQ 0, GO TO 5 
L ET MS Tfl J X L MK? ISX 


1ST 


if; 1ST £Q 2, 


TO 2 




MRU failure-schedule nwsat 


I 

to 

I 


LSI 


CALL REDUN < IS , IN) 

LET IK = NRUJIM) ^ 

IF DELTA NE 0., GO TO 111 
^l£_£ XMO P N E 0 , L ET IK ^ EKHO O - 


IF IK 
to 

", < y CALL 

gm maB- 


ME 10 0, GO TO 1 
20 0, FOR ALLv M COSY 
IS.HOOSY.ILLJ 


IH HOB ( I S > 


LET SSTATIISI = OUT 
C BLOCK - TEST LAUNCH POLICY 
IF PDOWN EQ 0, GO TO 1 
L_F T T s . TIKE » HA 1X3- 


IF 

-GO 


iLL S AVERI TV f 5> A 

DELTA 


SSTAT 

IQ--7- 




__ TO 
OUT, 


LET SSTAT I Slip 


EQ OUT, GO TO 10 


IF SSTAT ( IS ) 

GO TO 6 

LET ISTAT = SSTAT (IS) 
- IF NP OSI- IS1 EQ.IUJFT 
•ft T S ST ATil S \ TAT 

GO TO 7 

LET SSTATIISI * ISTAT 
4_£J-MS T A T ( HQD S YI . r . -IS U 


ISTAT a QUt- 


IF 

IF 

IF 

-O-O- 


SSTATUS) EQ DOWN, LET SSTAT(IS) = 
NPOSCIS) EQ 0, LET SSTATIISI “ OUT 
SSTAT ( IS ) EQ OUT, GO TO 7 
TO 38, F OR All -HO QSY IN M O OII y* - 


OUT 


STATUS11 
STATUS! 2 
STATUS1 3 
STATUS! 4 
STATUS!* 


STATUS17 
STATUS1 8 
STATUS19 


STATUS? 1 
STATUS22 
STATUS? 3 


STATUS25 
STATUS26 
STATUS27 
ST ATU S? a 


STATUS? 9 
STATUS30 
STATUS31 
STATUS^? 


STATUS33 

STATUS34 

STATUS35 

■SJAXUS36 

SWUS37 

STATUS38 

«ATUS39 

STATUS4Q- 


STATUS41 

STATUS42 

STATUS43 

STATUS4& 

gT|TU|47 


STATUS49 
STATUS5 0 
STATUS5 1 


FO R ALL M OnSY TH MQQ.C.ISX 


STATUS53 

STATUS54 

STATUS55 


STATUS 57 
STATUS* 8 
STATUS59 
STAXUSElD- 


- 43 - 


I; MST AT (M0D$Y ^g g y 2 » GO TO 3 8 


i- : IF DELTA EQ 0,, GO TO 7 
3% LOOP 

r . LET SSTAT CIS) = UP 
1 7 -LE - I — K —s — d — • '• - • 


LET KK = 0 

IF TRIG + TRIG2 EQ 1, 50 TO 10 
DC TO 39, FOR 1= IFSAT ( JSY) ) ILSATC JSY) ) 
JLi-SSJAXCI ) E Q t JP , .LE I . _K- = JC j fc J 


IF SSTAT 41) 

39 LOOP 

LET IPOL = POLONUSTI 
l e t it - Dmm 


EQ DOMN» i_£ T KK KK +1 


STATUS6 1 
STATUS62 


STATUS63 
STATU $6 4 
STATUS65 


STATUS67 
ST ATUS6 8 
STATUS69 
S T A T US? Q 


STATUS? i 
STATUS? 2 
STATUS7 3 
STATUS? 4 


IF IPOL EQ 0, LET IT = OUT 

IF IPOL EQ 1, LET IT = OUT 

IF IPOL EQ <*, LET IT = OUT 

IF I I HE OF TG QSY I J S Y1 ». LET - IX. 


3 .. 0 .UI 


IF K WE 0, LET IT ~= DO KM i§§ 

IF KK HE C, LET IT « DO#N 
LET STAT CJSY) = IT 

TF K r.F -.KIFUPtJSY). LFT SI A I USY) _= UP, 


10 LET IP = IS - FSATCJSY) * 1 
IF TRIG ♦ TRIG2 EQ 1, GO TO 54 
IF TLAST CIS) EQ 0 . , GO TO 54 


STATUS7 5 
STATUS76 
STATUS?? 
.SIAIUSIA 


STATUS? 9 
ST ATUS 6 0 
STATUS8 t 

status a_z. 


STATUS83 

STATUS84 

STATUS85 




If TLAST CIS > LT 0.T - GO 10 52K' f ' ' — / - 
LET SOT5»IS) * SOTS Tl IS) . V TIKE -VrLASTUS) 
wm TLAfHlS ) = -TIME 

mrt — . < * * V*' .iv.L. 

- > s 


STATUS87 
STATUS88 
STATUS89 
. ... S.IAtUSM_ _ 

' 


51 

IF TLAST ( IS i GT 0., GO TO 52 
LET A = TIME + TLAST ( IS ) 

LET TLAST IIS) = TIME 

TF A FD 0.. GO .TO 52 . . ... .. .. 



STATUS91 
STATUS92 
STATUS93 
smn$a4 , 

• 



mZ X QNTSTC I S ) OMTST - v , . \ 

LET C223 (IS) = C223IIS) ♦ 1. 

IF N223US) GT A, t£T N223CIS) = A r?X 

TF X723IIS1 L T _A^_ LET 3122.3.1 IS ) s ..-A 

; : 'v : 


STATUS95 
STATUS96 
STATUS97 
STATUS9 8; 



52 

LET IY = JSY 

IF STATCIY) EQ UP, GO TO 53 
IF TLASY(IY) LT 0,, GO TO 54 „ 

i ft snrsY<ry) = sotsyItyt 4 time - Tlasyc IYJ 



STATUS99 
STATU10Q 
STATU101 
. _ STATU1H2 




LET TLASTTIY) = -TIME, | r 


* : -V *V- . 

STATU103 



53 


IF TLASYC 

_L£T~_A — s 


Y) 

HE 


LET TLASY(IY) 
IF A EQ 0., G 
LET ONTSYIIY) 
XEJ-G PflH.il YJ- 


GT 0 , 

JLXi 


GO TO 

xm_ 


54 


= TIME 
O TO 54 
= ONTSYCIY) + 
= ,C 2 .flfl < in_ E 1 


STATU 105 
STATU 10 6 


STATU107 
STATU108 
ST4TU10 9 
SIATUiiQ 




IF N208 UY) GT A, LET N2081IY) = A 

IF XZasmi IT A. LET -X2H8XIY.1— = — A 

54 IF TRI6 ME G, RETURN 

IF TIME LT TIMFB, RETURN 

IF TRIG2 EQ 0* CALL FILES! IS* IM,IS T) 

1 CT MQV - <LV MAM f . 1 SV \ 


LET NSS - STAT(JSY) 
LET KST = SNAME(JST) 
LET KSS = SSTAT(IS) 
tc tm jrn n* rcn rn ill 


LET HST = MNAME ! JHOI 
GOTO 121, 22*22*24,25*25, 27, 26, 22*291*IST 
IX WRITE ON 6* TIME* NSYrfPtNSSf KST ' 
fO RHftT<S5»HS.2.?*S3, 

RETURN 

12 WRITE ON 6tTIME,NSY,IP,NSS,KST,KSS 

FORMAT«S5,M5.2.2,S3,A6, T3, SI, A6,S4., A6, S4, A6> 

THOM 


„„ITE ON 6# TI ME , JNSWI P, NSS.KS TX'. ... 

FORMA T C S 5 » M5 . 2.2* S3* A 6, 13* SI* A6*S4*A$ # S%* *LAUNCHED*I 

N . XXX.. is x&v- 7 ." .• 


! SITTxPI J k¥Pi i Tl&PK*ak I 


FQRMAT(S5,M5»2.2, S3, A6,I3*S1*A6, $4, A6*S4** RETRIEVED*) 
RETURN 

17 WRITE ON 6*TIME,NSY, IP, BLANK, KST 

EQRHAIXS 5 *,M5^ 7^2-»S>L^AiM.XX#-SX^ ft .6 ,S h , & .6,S 4 , *PAYLQ AO TOO .- H E, 

♦ *.* *♦♦♦+■+ J 

21 wlIrPoM €>,T1 ME, NSY-* I P^NSS* KST*KSS *MST ;* V > \ * 

FORMAT l . A P> . S I. » &F . SU. Afi-Sfr. Afe.£ 4 .»ftV 


RETURN 

22 WRITE ON 6, TI ME,NSY, IP, NSS,KS T, KS S , MST, IS TAT 

FORMAT IS 5, M5. 2. 2, S3, A 6, 13, Si, A6,S4,A6,S4, A6, S4, A6 ,S4, A6I 

2 4 III 


STATUlii 

siAiun? 

STATUll 3 
STATU11 4 
STATU115 
STAT Ull E 
STATUll 7 
STATU118 
STATU119 


STATU121 
STATU122 
STATU12 


STATU125 
STATU126 
STATU12 7 
TATII 1 7 


STATU129 
•SWU 130 
STATU 131 




STATU133 

STATU134 

STATU135 

S 1 AXUXJ& 

STATU137 




STATU139 

JSXATjiX4n 


STATU141 

STATU142 

STATU143 



FORMAT (S5,M5#2*2,S3,A6,I3,S1, A6,S4 *A6,S4, A6» S4* A6* S4* *ME UPGRADE*) STATU149 
RETURN STATU150 

26 WRITE ON 6 , TI ME , NSY , I P , NSS, KST, KS S , MST STATU151 

inMi T / «^ r 


TURN *v^-- ± =;.. • . V X>> •: -• • 

ITE ON 6, TI ME# NSY , lR r NSS*KST44 XX-X, . 4', Xx v - 

M T.<S 5 *fc * r. Its$; A 6 ai 4 t* m,*** 


mis. 
STATU 15% 
STATOI55 




19 WRITE ON GfTIME,NSY,IP,NSS,KST . _ STATU157 

FORMAT (S5,M5«2,Z,S3,A6,I3,S1, A6,S4,A6, S4, *SATELLI TE REQUIRES EXPENSTATU158 
*OED VEHICLE *> STATU159 




27 WRITE ON b, TIME, NSY, IP, BLANK, KST,8LANK, MST 


i 

.-£s_£>- 
t3 ^ 

-« ?v- 


•HEAVY *■ * ♦ * ♦ *+ + +>♦ +++>♦ + ++♦ + +++++> m f *■ tf ++*+*♦ ♦■♦•♦♦I 

RETURN .. Xk- . ' •,/•.•< 

29 WRITE ON 6, T I ME , NSY , I P, NSS, KST, KS S , MSI 


STATU 163 
STATU 164 
STATU165 




* EXPENDED VEHICLE- 
RETURN 
END 

rwnnr.?wni 



THIS ROUTINE t^W'lfeijC'TIVATEU^AT END OP ^ MONTE CARL& CYCLE 




TERM! NAT ION OF THE RUN WITH STATISTICS. 


TORMAT ?> ,S5, M5 *2*2,S3 ** TERMINATE S imt miQN*U 
IF TRIG? EQ 0, CALI FILEO 


r«f-» mtm sot etch aKwvaoKt fii e fns«aiii; 


LET TRIG = TRIG + i 

IF LOAD IS NOT EMPTY, GO TO 1 

_CALL-.MC.tf EH 

CALL MCMOD 

CALL HCSAT - -v* 

CALL MCSYS , 'W**s* fc *jj 


INITIALIZE ANOTHER CYCLE 


LET TIME Q. 
CAUSE START iATdfc*. 
DESTROY TERM 


:Jsi inn:-! 


LOADING QUEUE CONTAINS TRASH — STOP RUN 
i nn t n ?n . fdp am pay* n tn i nan 


! ? IF LQTIM t PAYLO) GT 3Q0O., CALL QOMPLIS ATCPAYLOT, IHOO CPAYLDT , ILL) 
20 LOOP • W<^=- / «• ". T '■■“•• ^ ... 

IF LOAD IS EMPTY,, GO. TO 10 ' €\' 

jiRixE - OH— fc -l ....a - , -, ^ ^ 

format ( s 5 , * — run stopped oue to data in loading queue at end of 

*YCLE*> 

□0 TO 2, FOR ALL PAYLO IN LOAO 


STATU167 

STATU168 

STATU169 

TCDM 


TERM 3 
ivYERM 4 
TERM 5 


TERM 7 
TERM 8 
TERM 9 

TERM UL 

TERM -,I1 
TERM 12 
TERM 13 


; S iSI4. 


TERM 

15 

TERM 

16 

TERM 

17 

TERM 18 

; TERM 

19 

.TERM 

20 

TERM 

21 


TERN 

23 

TERM 

24 

TERM 

TERM 

25 

?6 

TERM 

2T 


IN, 


TERM 31 
TERM 32 
TERM 33 

TFBM 7 


TERM 3 
TERM m 
TERM 3 



CTERM 39 
TERM 40 
TERM 41 




LET A = LQTIM(PAYLO) 

TF XilOaX-RAXLlU fQ fl, W^ITF ON 6,T,A ... — . __ 

TERN 

TFRM 

43 

44_ 




FORMAT < S5. *SAT£LLITE - *,A6,* SINCE *,M5*2.2t 

IF IMOO ( PAYLO) ME 0, WRITE ON E.MNAMEf NOMOOUMOOfPAYLO 1 >) , I, A 
FORMAT ( S 5,* MODULE - *»A6,* ON SATELLITE - *,A6,* SINCE *,M5*2*2J 
? tnnp 

TERM 

TERM 

TERM 

45 

46 

47 



C 

o 

LET TRIGS = 1 
GO TO 10 

FINA4- f)MTRU T 

term 

TERM 

TERM 

TFRM 

49 

50 

51 
_52 



C 

5 CALL TER HO ' ,:r ’’ . , «... *' '• ;■ 

mr . ■ - - # . : 

TERM 

TERM 

TERM 

TERM 

53 

54 

55 



C 

c 

c _ 

SUBROUTINE TERMO 
OUTPUT STATISTICS AT ENO OF RUN 

TERMO 

TERMO 

TERMO 

TERMO 

2 

3 

4 

5 



• -*'4' . 

■ WRITE ON 6, TR I G S ' ■ — • ;; -v. . ' *• • .TER WO 

FORMAT!* 1, STATISTICAL SUMMARY FOR*, 14,* MONTE CARLO C YCLES*/TERMO 

VrT A S TRIGS 1 - TERMO 

6 

7 

6 

9 


i 

O' 

1 , 


WRITE ON 6 

FORMAT IS 25* * FLIGHT SUMNARY*/S 18,* SHUTTLE* * S15, *TUG*, SI 7 ,*SEPS*/ 
** YEAR MIN AVG MAX MIN AVG MAX MIN AVG 

TERMO 

TERMO 

TERMO 

TFRMn 

10 
11 
12 
t 3 




do TO 10 1 FOR 1=11) 4NYEARI . . . .y ■ / * 

LET TUGFY4IT l TIMES # iM** •• » ** ■' Rjir/f \\i 

IF X AX90TTVEQ n t r;ru rn to- ' ' .4 ' ■•••/: 

TERMO 

./TERMO 

TERMO 

TFPKin 

14 

15 

ft 




LET 3 = SUM39 ( I ) 

LET 3 = 8/A 
LET C - SUM9QCI) 

LET C = C/A ... 

TERMO 
TERMO 
TERMO 
_ TERMp 

18 

19 

20 
?1 


••• 


LET 0 = SUM86<I) 

MitI »N 6 1 TUGf Y(I) , M I N 98* INC. HAX90 ( II HI N39 1 It, 8, MAX 3 9 II I , > # 

^ * MTMAfef T 1 T 0 T MAVftA i ti . -m- ; .: ..... '*&■ ■ .-,r- v *±\ ,"• 

TERMO 

•vsIERMQ 

TEggO 

22 Z 

2 3 

24 

25 

, 'V/' :••• 



FORM AT (18, 18, 04 *1,16 tie *04. 1,16,1 8 ,04. 1*I6> 
10 LOOP 

LET 0 = ITFLT 
LET a_ = fl/fl 

TERMO 

TERMO 

TERMO 

TFRMO 

26 

27 

28 
29 




LET c « ifsut - y - ■ , . :;■■• y:,/y 

LET C = C/A •> • I: - -i L - ^ ' "V : y 

tET 0" = IFSEP •••'V y~ -Lr v 'X'W' - ' 

LET n = O/A . • v - v * / v v . ; - 'V (?. ■ - 

'TERMO 

TERMO 

TERMO 

TFRMn 

30 

31 

32 
S3 




WRITE ON 6, NFSUT, C t MF SUT,NTFL T , B, M TFLT » NFSEP ,0,MF SEP 
FORMAT ( * PROGRAM*, 16,0*,.!, 16, 16,04.1 , Id, 18, 04 *1,161 
00 TO 5, FOR I=(l> (3) 

— 1£ — MXO-1X1 Eg ...lQSn^..l.ET MT0XII.= 0. 

TERMO 

TERMO 

TERMO 

TERMO- 

34 

35 

36 

_3 7 



- 47 - 


IT MGVA(I) EQ 10 9 0 .* 
IF T C UA tl) ^ 


LET^H CVA (I) = 


TERMO 38 


LET VTDU) = VTD<n» 360 ./TCVACI) 

let rev aci) . - TcvAcrr/A 

LET HTGII) = •‘■njfiUlSgS-*' — - 

4 ^ r xwr L * xT a ax^ba* — -— 
IF I EQ 1* LET E = C 

IF I EQ 2 , LET E = Q 

IF I EQ 3, LET E = 0 

LET^XOU UI) " T n y A Uj ’i aQ-» / £ 


TER HQ %0 
TERHO 41 
TER HO 4 2 
XERM£L_ 43 _ 


TERHO 44 
TERMO 45 
TERHO 46 
-TER HQ 4 ? 


LET HCV4(II = gCVAUJ ’iQg*/E 
LET XCVATII ~ JtCVAU) *100i/E 

5 LOO p ; v- - v > ■■ iT- • 

WRITE. ON 6 , MCV AI IX, 




TERHO 48 
TERMO 49 
TERHO 5 Q 
TERKQ- 5 X 


* MCVA C 3 > ,TCVA< 3 > ,XCVA ( 3 ) . ^ J 

FORMAT i * OPERCENT-** D 6 * 1 , 2 D 4 . 1 , 06 . 1 , 204 . 1 , 06 . 1 . 2 D 4 . 1 ) 
H pTE^ 0 N^MTD(lGvT 0 (l>,X T aU>,HfoC 2 ),V T O( 2 i,X T 0 ( 2 t, 


FORMAT L * 8 DELAY D 6 * 1 * 20 W 1 * 06 * 1 * 204 * 1 * 06 . 1 , 204 . 1 ) 

if t extug 6 he o?I U write on 6 , extug. 


TERMO 52 
TERMO 53 
TERHO 54 
TERHO 35 




AVFfrdfcfr NO. QFFXPE N OElilllGS =... » . Q. 5.^-11 


lERMO 56 
1 ERW 0 57 
lERHO 58 
TERM O 5 9 


FORMATM 1 »,S 30 ,»ORBIT TRAFFIC SUM H ARY*/ * 0 * , SI 3 , »AVBRAGE FLIGHTS* 
* 15 , ’AVERAGE UP WEIGHT *, S 9 , ’SHUTTLE °^:Y*/S 3 t * 0 R 8 IT paFthoI/Iii 
» r. SHUTTLE : TUG SEES 1 QA I 3 - E ACT QR ’/ S l ) 


00 TO 30 , FOR X=<lMt|0RS5l , 
if ORBiOTI* ea a, GO T 0. 5jO , 
m WSHUfltl Hi dt, LET MWliv 
jk-KSEPS*?). NEi .fi... ,, I FT WSFPSt I 


TERHO 60 
.STERMO 61 
TUTERHO 62 
RHQ 63 




nrm/i 

wm 


IF WTUG II) NE 
LET CSHUT(I) s 
LET CSEPS(I) = 
LET P.TtlG til- si 


9 ., LET HTUG 
CSHUTCD/A 
CSEPSt II /A 
CTUG (I) /A 


II) = WTUG (I)/CTUG (I) 


fCRHO 64 
TERHO 65 
TERHO 66 
_I£RM 0 _ 6 T 


TERHO 68 
TERMO 69 
TERMO 70 
TERMO - 7 LL 


RQSUT:<I 0 RB) G; ' > . ' : , l'"' ^ 

,'lfxj EQ 3, LET J * 1 • . - ' *,. ;x I ' - 

wiIttf n .nsrps-m ,nsHUf (f nwTutci) 


TERMO 7 2 
TERMO 73 
TERHO 74 
TERMO _Z 5 


W 5 EPS 1 1 ) ,3 

FORMAT (S 3 ^Ao, 3 06 . 1 , 01 2 , 209 , 09 * 2 ) 
39 LOOP,, ^ ^ 


TERMO 76 
TERMO 77 
TERMO 78 
1 ERMCLT 9 - 


FORMAT! *1*1 - 

LET TSAIS = a * • V ' ^ i 

LET E-ftSA T t 


TERHO 80 
TERHO 8 
TERMO 8 _ 


IF SYNAM(I) EQ 0 , GO TO 13 
IF FS AT Cl) EQ 0 , GO TO 13 
WRITE ON 6 , SYN AM C I ) 
EORMIl-tH SXA XT S T I 0 $ F O R 


SYSTEM - *, .A6L 


TERMO 84 
TERMO 85 
TERMO 86 
l ERHCLAZ- 


48- 



00 TO 12 1 FOR J=(FSAT(D) (LSATCI) ) 

L- E - T - IR E S 

LET ICE Q =0 

IF SO'RTE ( ITS AT ( J) > NE 0., GO TO 110 
IF MOOCJ) IS EMPTY, GO TO 12 

WRITE ON F • . 

FORMAT 1*9 MODULE MIN AVG MAX MIN FLT AVG FLT MAX FLT* ) 

00 TO 11, FOR ALL MODSY IN MOQ4J) 

LET 8 - SUMNUtMODSY) 

LEI-g-.g-a/A - r ^. 7- 

V IF NRUCMOOSY) N€ 100, LET ICEQ = IGEQ 41 >s . 

LET TRES = TRES * 8 ; ip >v £ , 

LET 0 = MINLF (MOOSY) V =.>• - ' / "iv ; • 

LET E-S-St 
LET E = E/A 
LET F = MAXLF CHOOSY) 

LET 0 = 0/100. 

L 

LET 
IF 

mm 


IF MAXNUCM03SY) NE 0, WRITE ON 6, MNAME CNOHOD CHOOSY) > , 
♦NRUCMOQSY), 

* MINNU CHOOSY) ,8, 

. . ♦ , MAX NU CH OOS Y )-,.Q. » E»- F --.~ ^ 

^ i,frORMATiS3, A6, 2ItVO4.1*I6»305*E| 4 - - T mm 0^ ? . | 

"li -LOOP * *>' : * - * *'*' - • ' s 

110 LEI S227CJI * 5227 CJI/A ' v ^ ^ ' ... feg: ' ^ pS •• > 

V?a^T....a = NOEPC J) — iz-x* i ' ■ > * ■ » 

LET 8 ** 8/A 

WRITE ON 6, S NAME (ITSAT(JI) ,B» N227 CJ),S227tJ)»X227 CJ) 

FORMAT ( * SAT£LLITE*/S3,A6,S6, D4» l,Sfe, 305*2) 

IF S Q RIE-UTS A T ( J) > M E ( U -» -^ kJA jJkr ■« . ^ ^ -v 

"us, ViET TSATS^rTSATS + 1^* ’ - r "* P v - * ~ ' •- * * 

"IF E NE 0«, EgTflRES * TRES/E y " l { * * ' / ;; 

: — U£T IRES =gTRgS*3^ :H--f ' - - — •■ 

WRITE ON 6, TRES 

FORMAT 4 * EQ SAT* ,S6,04.2) 

LET EOSAT = EQSAT + TRES 

WRnl '^ON 1 62 MINSCtJ>* SUMSL tJF, MAXStiJI 

spaajs.toifwm.Gra. ' JD! ' 2 ’ 

L-E-T - .F ...a-a&E&S T l J > --/ A. — — — £ — 

LET E = ONTSTIJ) *360 ./C223CJ) 

IF N223CJ) EQ 1000., LET N223CJ) = 0. 

LET N 223 { J ) = N223CJ>*350. 

_L£X X2 23U4-S - -X 2 231J ) ^ ^ — 


TERMO S3 

TERMO- 83 — 

TERMO 90 
TERMO 91 
TERMO 92 

TERMO 94 
TERMO 95 
TERMO 96 
—91 — 
TERMO 98 
.TERMO 99 
; TfERMOiGS 

t ERMaia i 

TERM010 2 
TERMOIO 3 
TERM0104 




TERMOll 0 
TERMOlll 
TERM0112 
.TJE8«m.3 
iTERM0114 
TERH0U5 
KRM0116 
ilERMOll 7.. 
TERM0118 
TERMOll 9 
TERMO120 



TERM0126 

TERM0127 

TERM0128 



TERM0134 

TERM0135 

TERM0136 



» C208II1 EQ> 0»t LW "C20 8C II =?" 

t±T £ * 9NT ST ttmgm/C2MA It - : ' 

IF N20S(I) EQ. 1000'**, LET N203 IIK = . 0. 
tl'T". hpmi i-i = » i fin . ' ^;.= aar : 

LET X203III = X208<I1*360. 

IF X200 1 1) E Q 0 . • GO TO 16 
WRITE OH 6, *200(11, F.X2QQU) 


ua;4Ha>ii 


1? t< ? write 

^ /FORHftTC’O OEt A^T INTERVAL TO REST3REN395. 2 1 
16 WRITE OH 6 

_ FQRHftrT % * — «■*■» — ~ — •+'* *» ^ w-.. 

13 LOOP 

WRITE ON 6, TSATSfEQSAT 

FORMAT ( * 0 TOTAL SATELLITES *,D4.1/*0 

tl -~. ■ ... — . 

WRITE ON 6 _ _ £ 




TERM0148 

TERM0152 
TERM0153 
TERMG154 
TFPMD1 *5*? 


^ISoii? 


TERN0I6Q 
TERN016 i 

EQU. SATELLITES % D4. 2TERM0162 

_ wmxxhi 

- TERM0164 


FORMAT! *1 MODULE SUMHARY*//S20 * *HARN*. S24* *FAIt** S22,*REPLACE*/TERM01&5 
‘5 NAME ^ MIN AVR MA< HI* AVR MAX MTERM0166 


DO TO 15* FOR 1= < 1 ) CHIT AQ) 

IF MNAMEfll EQ 0, GO TO 15 

IF S121II) + S125(I) + S129II) E3 0, GO TO 14 

L FT 0 . ~ S 12JJLD . , _ ... — _ 

LET B"-~ 8/A 


•Lit c = stmt it 

LIT C 


,:tET. ; C * G/A , ' - >- _ 

I TT n * S129MI - . ; - : - 

LET D = O/A 

IF N125II) £Q 1000, LET N125CI) = C 
IF N129 ( I) EO 1000, LET N129<I) = 0 


am€ ( 1 1 * 


cn *0 *X 125 If#.* Ml 29 <11 *! 


*2911 F:< 


*07.1,21 9,07.1,219 ,07.1* 191 


14 WRITE ON 6, MNAME ( I ) 
FORMAT (S2*A6) 

15 LOOP 


TERM0168 
TERM016 9 
TERMO170 

IERMQ1Z1- 

TERM0172 
' TERM017.3 
1 TERM0174 
:sklBll.ERnQ113~ 
TERM0176 
T ERH0177 
TERM017 8 

„..T£RM0179 

1 1 *B,TERH018 0 
iERMoiai 
TERM0182 
TERM0183 
TERM0184 
TERM018 5 
TERM0186 

I.ERMOta 7 _ 




THIS ROUTINE HILL ATTEMPT TO SCHEDULE THE LAUNCHING OF A REPLACEMENT 


IF IT EXISTS 


LET IH = PMOOCWARN 
IF SSTATIISI EQ OUT, RETURN 
LET NGWARlNOrtOOflHM = NOWART NOMOO < INI ) * 1 


LET DELAY = WSATU 

IF TIME + DELAY GT TGO(IS), RETURN 
CALL SHIP<IS,IM> 


LET T F = Q. 

IF AF EQ O.f RETURN 
LET AX = TW/AF 


3 LET AX = RANF(N) 

A LET AX = -ALO G ( AX* AN3) 

IF 8F NE 1. t LET AX = AX»Mi./BF> 

. _ _ _ • -* - • - 


WARN 3 
WARN <♦ 
WARN 5 
HARM 


WARN 
WARN 8 
WARN 


WARN 11 
WARN 12 
WARN 13 




WARN 15 
WARN 16 
WARN 17 



WEIBUL1S 

WEIBUL16 

WEIBUL17 


Tiacii 



WEI8UL2 3 
HEI8UL24 
WEI8UL25 







6 LET AX = RANF(N) 

7 LET AX = -ALOGCAXI 

IF 8F NS i., LET AX = AX*M1./BF| 


CALL SSLQD ( DVLEG, PLEG, NLEG) 
GO TO 50 

10 DO 20 I = 2,NSTG 


WEI8UL33 
HEI5UL3A 
WEI9UL3 5 



PRFORM37 

PRFORM38 

PRF0RM39 








ooo 



20 CONTINUE 
r* n i 


GO TO 50 

30 CALL TRN KC (OVLEG* PLEG J 
GO TO 50 

> n u-r r Pki — U T C C M i- 1 . 


MPLA = PLEG(l) 

HPLB = PLEG(NLEG) 

CALL SEPX CMPLA, MPLB, ERFLG, NEX1T ) 

; 

NT as NTUGS 

IF (NEXIT.EQ.i) RETURN 
IFCNEXIT.EQ*21 .RETURN. 


IF tNEXIT »£Q*6) RETURN 
50 MPER R 2 100.*<1.-AHAX1<FEAS(1> , FEAS«2>M 


;0NN0N/SEPVEH/SEPS,M5,E,P,SISP ? SEPK.SR, TSEP _ TCO ,_. 
lONMON/TUGVEH/TYPE ,NSTG,SPAR( 31 * KS < 3) * WPftT 3) *EISP(3I 


nstg . i vr r ' c 

IjfpS a xIeSR '**■- ' ' - ‘"Sk 

RETURN 

SUBROUTINE LINKT <1 , A, B, C*D, E, JF*51 


^*INTEGER ; #A? 

mispcir = a 


7reuseWI«€a7 


PRF0RH4 1 

&RFQRH42. 

PRFORM4 3 

PRF0RM44 

PRF0RM45 

PRFQRH4A 


PRF0RM47 
PRFORM48 
PRFORH49 
PRF0RM5 0 
PRFORM5 1 
PRF0RM52 
PRF0RM53 


i a ui 


PRFORH55 
PRFORM5 6 
PRFORN57 



CONEC 5 
CONEC 6 
CONEC 7 

§ 33 lo I 

Q0NEC 14 
lONEC # 
CONEC 12 
CONEC 13 
CONEC 14 
LINKT 2 




,V ' x^4-. A V " 

. i ™ . , . , 


WPACI) = D 
REUSE II) = 1. - E 
5 SpARfI) = JF 

RETURN - v • .7 • A.‘- v - ;*£i ^ 

. Subroutine sslrq (dvli^ples.nleci l* ^ : ;/ ^ 

SSLQD - PERFORMANCE ROUTINE FOR SINGLE STAGE LIQUID 


mmx 6 

LINKT 8 
LINKT 9 
LINKT 10 
LINKT U 
LINKT 12 

II «*?!. 

SSV RQ 3 
SSLQD 4 
SSLQO 5 
SSLQO 6 




G GRAVITY tn 

WGA ALLOW A8tE G 

MS JO. NUMBER OF S 


SPECIFIC INPUT 

DVLEG DELTA V FOR EACH LEG 


NLEG NUMBER OP tESS 


OUTPUT 


SSL 00 14 
SSLQD 15 
SSLQD 16 

SSLQO 18 

im h 


FEAST 21 GROSS WEIGHT RATIO SSLQO 22 

- SSLQD 23 

IF LESS THAN OR EQUAL TO 1 CONSTRAINTS NOT EXCEEDED SSLQD 24 


GROSS WEIGHT RATIO 





X, FEAS T2J 
COMMON/ MISC/G 
REAL MR 


SSLQO 30 
SSLQD 31 
SSLQD 32 


PMIVIBJ 








oo r ' . 0 : <?*p ps* ooopooop ooohooo 



FEAS<2J 


GROSS WEIGHT RATIO 


SSHOT 24 


IF LESS THAN OR EQUAL TO i CONSTRAINTS NOT EXCEEDED S|hqI II 


X.FEASC2) 
COHMON/NISC/G 
REAL MR 


SHOT 2 9 


SSHOT 32 
SSHOT 33 
SSHOT 34 


IF ( NLEG .EQ. II GO TO 20 


IF MORE THAN 0*E EEG COMPUTE N MTS 






bOO 000:000 pOOO OOO 



TEST THE NUMBER OF STAGES - 


? t'TS A THREE STAGE VEHICLE ¥''S£E if t Ht 
r ; , ' .'SECOND STAGE - M EXPENDABLE, * 

... S»S 1 1 i -Dh i i, 1 1 ■■n.',..S.I.I.l)lHl . 

IF ( RE USE 12 ) . EQ« 0, ) GO TO 40 
EXP2 = 0LTVL*REUSE<2> /<G*EISP<?n 
HR = EXP ( EXP2) 

W P( 2) s M SI? ) * < HfjL - l .f) \ . v>8 ^. . 

TEST 1jrf;‘T HERE IS ENOJ^H PROf4il&1^2 ‘ 7 


RETURN, 


NO - SECOND STAGE CANNOT EVEN RETURN - ABORT 


ITS OK - CONTINUE 


40 WG2 = PLEG(l) *■ WPC3) *■ MS < 3) 

HR = (WS<2) + WPAC2I + MG2 ) / <WS<2> ♦ WPC2I ♦ MG 2 > 

OLTVLU - G* E ISP < 2 ) * ALOG i HR) 


SSHOT 82 
SSHOT 83 
SSHOT 84 


1*1 Ml 


SHOT *6 V 
SiHOt 87 
SSHOT 88 
SSHO T 8 9 & 
SSHOT 90 
SSHOT 91 
SSHOT 92 


r:slS:H0T:..9'5: 

SSHOT 96 
SSHOT 97 
SSHOT 98 
SSHOT 99 
SSHOT 18 0 
..SSHOJICLI 
SSHOT102 
SSHOT 10 3 
SSHOT 104 
- SS HQTluS 
SSHOTIO 6 
S SHOT 10 7 
SSH0T1Q8 




OO (JOO |ooo I OOCi (J{3<3 } ooU I I ciouo 



IF I OLTVLU . LT . DLTVL > GO TO 50 

F£AS(1) = .7 

RETURN 


NO CONTINUE 


50 WP ( 2 ) = WPA(2) 


ONLY TWO STAGE RETURN 


60 3LT-VL L = DLTVL - OLTVLU 

« 


SET UP AND TEST IF TTE STAGE IS REUSABLE 


TL .£Q. 0 . > GO TO 73 • — -jf, 

'tel COMPUTE THE HP ■ =££ ' - 


IF I 


EXP3 = DLTVLL*REUSE(i) /T2 
NR = EXP CEXP3) 

WPI1) = HSU) * < MR -1.0) 

Z " msv IF FIRST STAGE CAN RETURN 

IF i WP ( 41 .LT* i H#A;1 1) ) GO TO 70 

' f 45 1 u i - *■ *>• - ■ 


RETURN 

ITS OK - CONTINUE 


HP1 ■ = WPU) WPI 
FEASU) = WPI / WPAU) 

HG = WG2_* WS(1) ♦ WPI 

RETURN 1 " W ; 

luBROUTINE TRNKC COVLEGXf PLEGI 


SSHOT 112 
SSHOTU3 
SSHOTil 4 
SSHQTU5 
SSPOT116 
SSHOT 117 
SSHOT 11 8 
SSHOT 1 1 T 
SSHOT 120 
SSHOT 121 
SSHOT 122 
SSHOT 173 


SSHOT 124 
SSHOT 12 5 
SSHOT 126 
SSMflTl 7 7 


; SSHOT 128 
SSHOT 120 
SSHOT 130 


fcilfOl 


SSHOT 132 
SSHOT 133 
SSH0T134 
SSH OT 1 35 
SSHOT 136 
SSHOT 137 
SSHOT 13 8 
SSHflT OP 


SSHOT 14 0 
SSHOT 141 
SSHOT 142 



SSHOT 148 
SSHOT 149 
SSHOT 150 
c<iurvr i si 


SSH0T152 
SSHOT 15 3 
TRNKC 2 


GENERAL INPUT TRNKC 4 

WS THE STRUCTURE WEIGHT FOR THE STAGES TRNKC 5 

WPA THE ALLOWABLE PROPELLENT WEIGHT FOR THE STAGES TRNKC 6 


i 


oopo ohn pc| 0 *f boo \-yf- ooohpoopooopooopo 



NST G NUMBER Oii; STAGES . >0 

REUSE REUSA3CE;ift4G: Q = EXPENDABLE , 1 


= REUSABLE 


OVLEG(l) QELTA V FOR LOW ALTITUDE BURN 
DVLEG<2) DELTA V FOR HIGH ALTITUDE BURN 
NLEG SET EQUAL TO 2 


OUTPUT 


WEIGHT RATIO V.*. " ?. 

FEAS ( 2 ) GROSS WEIGHT RATIO 

y .v * .* >: -v ---. ' -^■£ V Y' ■'&& *-* : i 

Tf less than or equal To T constraints not exceeoecT 

IF GREATER THEN i CONSTRAINTS EXCEEDED 


TRNKC 8 


-IkHKu — Sl 

TRNKC 10 
TRNKC 11 
TRNKC 1 3 

TRNKC 14 
TRNKC 15 
TRNKC 16 
-J&NKC 17 
TRNKC 18 

i^NKC || 

TRNKC 22 
TRNKC 23 
TRNKC 24 




warn IMTfF. 


CGMHO N/9ELT AV/0VLEGI2I 


INITILIZE AND COMPUTE STAGE WT 


FE ASCII - 0.5 
FE ASt2> - 0*5 


K?» MRKMX* HRCK*M! 


■ 


L 2 = PLEGCl) 

K2 = 0*LEG<2> 

PI = DVK2 / (G * E ISP< 3 I ) 


TRNKC 30 
TRNKC 31 
TRNKC 32 
T.RNK 

* TRNKC 34 
TRNKC 35 
TRNKC 36 

TRNKC 37 

TRNKC 38 
TRNKC 39 
TRNKC 40 




SECOND KICK MUST DO ALL OF SECOND BURN 
NON GET, FUEL. RE QUI RED FOR SECOND KICK 

' . - f 4> .^v -.' >r A - » ' 

) = (WS(T) ♦ WPL2) ♦ ( MRK2 -1. 0> 

FEAS(l) = HPC3) / WPAC3) 




IF ( FEASU) • GT* ? I* 0)0 RETURN 


NKC 42 


lif 


TRNKC 46 


TRNKC 46 
TRNKC 47 
TRNKC 48 




USED UP BY YAW STEERING 
WGK2 = WSU) + WPL2 *■ WPAf3> 


TRNKC S 
ILRMKG S3 
TRNKC 54 
TRNKC 55 
TRNKC 56 











o0n opn ooo 


C 

C - - 


NOW SET UP PARAMETERS FOR FIRST KICK 


TRNKC 

I&NKC 


DVC = OVLEGfl)*.75 
DV A3 = OVLEG(l) -OVC 
WPL = WGK2 

SO JjQ — 2M 


TRNKC 

TRNKC 

TRNKC 

TRNKC 


58 

33- 


MUST SET UP PARAMETERS IF THERE WAS NO SECOND KICK 


60 

61 

62 

6.3.. 

64 

65 

66 


40 0,v.g_j= — QV L£G < 2.1 


OVAB = OVLEGdl 
WPL = PLEGtl) 


Mnw OORlXmiE 1 HE PROCESS 


20 MRKMX = 1.9 ♦ < WPA(2) / (WPL 

EXP 2 = OVC / (G* E IS P 1 2) ) 
-rt&CK—= EXP — 13XB2X 


+ w s c 2 ) i ) 


EXP 3 =...££&&/ (3* EISPdM 
NRAB = EXP (EXP31 


CHECK IF . -KT C H - H A S - .- H a RE .--- B l E L T H F - N R F Q U I RF H 


CO 

i 


REXP =REUSE< 1) +1.0 
IF ( MRKMX • GT « MRCK 


) MRKMX = MRCK 


TRNKC 
TRNKC 
TRNKC 
T R NKC -6.7, 
68 

69 

70 
XX 


TRNKC 

TRNKC 

TRNKC 

T.&N&C- 


TRNKC 72 
TRNKC 73 
TRNKC 74 
JLRNKC— 2LS. 


TRNKC 76 
TRNKC 77 
TRNKC 78 
XRHKC-13 


TRNKC 

TRNKC 

TRNKC 


80 

81 

82 



ftRi r ^ i MR6B t * S MRCK ** ftLfINV / MR<MX»*M.FI NV 

!fP< li = =^f tWPA<2?+WS(27+RPL) • * ( 1 MR1»*RE XP-1 . » 

1 

LKHISXt-. 

T RNKC 
TRNKC 
TRNKC 
/ TRNKC 

-0-0 

84 

85 

86 
..ft? 



WG = HPL + WPA ( 2) +WS C 2 1 + WPC1I + WSU1 

F EAS ( 1 > = WP(1) / WP A < 11 

FEAS<2> = WG / WG A 

OP T IIP W 

TRNKC 

TRNKC 

TRNKC 

TRNKC. 

88 

89 

90 

91 



ENO 

SU3R0UT INE LOSE? ( A f B, C*0 . H, I,F,GI ^ v ■ 

COHMON/SEPVEH/SEPS, MS *E,P, SISP* ScPK, SR^TSEP 

OF M T 

TRNKC 
LOSEP 
- LOSEP 
LOSER. 

92 

.4. 



MS = A 
E = B 
P = C 

qtcd - n - 

LDSEP 

LOSEP 

LOSEP 

LOSFP 

5 

6 
7 
ft 



SR = H 

SEPK =1.-1 
TSEP * F 

MDT - r. 

LOSEP 

LOSEP 

LOSEP 

LOSEP 

9 

10 

11 

.42 



RETURN 

SUBROUTINE SEPSV < N , PE R , VS, DT, P AY) 
qyMFNSTQN LLT. i LOJ^PiLYUJU 

LDSEP 

LOSEP 

SEPSV 

_S£P-SV- 

13 

14 
2 
3 






C0MM0N/SERVIS/NSERV*0THETA(1Q> ,MPLSf 10) *PSERV.VS£RV 

REAL HP! S 7 r - — 

NSERV = N .7 v. 

oo 5 i = umzm. , 

... OTHET Aiir ...... .. . 

RETURN 

END 

SUBROUTINE T W OBR C DV , OV 1) 


TRANSFER ON TWO DV S RATHER THAN ONE 
COMMON/ BELT AV/0VLEGI2) 


1 1 vt san & a sf§=»5 s u 


OVLEG (2 > = (DV - 0V1> *1« 01 
RETURN 




SEPX THE SEP E XE GTIfrE ROUT £NE IT PERFORMS THE 
LOGIC OF UTILIZING OF THE SEPS VEHICLE 

SPECFIC INPUT “ “ 

MPL A PAYLOAD TO 3E DEPLOYED 
MPLB PAYLOAD TO BE RETRIEVED 

F R FLG 0. =- Qg.Nni ..E R ASE P REVIOUS HANEUVE 

^777 A = ERASE THE FREVIOUS MANEUVER; 

NEXIT SET TOO ON OAT ft CARO OF DRIVER 


MPT AMOUNT OF FUEL REMAINING 
LLEFT AMOUNT 0 r TIME REMAINING 

* 

Pi§r '*■■■ . >' r 

mw SPECIFIC impulse seps 

HOT'- • - ■ , • ’Vv>V i- 


TSEP 

RSEP 

SG 


SEPSV 4 

-S£PSV- 

SEPSV 6 
SEPSV 7 
SEPSV ft 

SEPSV 9__ 

SEPSV 10 
SEPSV 11 
TWQ8R 2 
THQRR 3 


THQ8R 4 
TM08R 5 
TtiGBR 6 




TWOBR 8 
THOBR 9 
TWOBR 10 



GRAVITY CONSTANT 


5tPX 11 
SEPX 12 
SEPX 13 


SEPX 15 
SEPX 16 
SEPX 17 
S£P.X._ UL 
SEPX 19 
SEPX 20 
SEPX 21 

5EP-X 2_2. 

SEPX 23 
SEPX 24 
SEPX 25 







C DM **0 N/ T UG i/ £ H / T YPE * MS TG t SP A R ( 3> , *S <31 , H*A <3> . EIS* f3> 

•X - 4.2FUS£.(.3J #WGA*TR l _ __ 

COMdON/SEPVtH/SEPStMS t E , P, S ISP, SE PK, SR, TSEP 
*8 mm8K?oT?£ to » t ^*HCQ, ICOS,MPT, t left, mot, ntugs 

u uMHuN/ C 2/ I S 

.-^iMOi^sERy-isytiSERv^aTHEi^ciai .mpesjeioj *p.sEHtf , mserx 

A L MPL S 

PEAL HOT *HPT, MPTS V , MPL3 , MPL A , MPT5 Vi 
I N T E G £ R E 9 F L G 

- aAJfi.-S£usE.ixi./-i^y 

OfiTA NFL/G/ 

SEARCH INPUT PARAMETERS FOR MISTAKES 


IE PR = 0 ‘ 

IF { REUSE ( i ) .LT. Q.5 .AND. SEP< .GT. Q.5 ) GO TO 160 
IF ( PEUStm .LT. 0.5 .AND. MP L 3 .GT. 0.0 ) IERR = 15 


-IE— t- 
IF i IERR 
MPL B= 0.0 
CONTINUE 


JL+5..+ AND.+ . .MPL3L. 
EQ. 0 ) GO TO 5 


G 1 S *_0- — I£SR = 16. 


t; 


O' 

o 

J 


C_ 

G 

C 


HC 3 = lbO . 
TU=fl. 0 
IS = 0 . 0 


ICOS=23.5 

IF (NEXIT * GE • 1 ) 


GO TO 10 


INITIALIZATION CALCUL A TAT IONS 


IF(NFL.NE.O) GO TO IQ 
_NF-C-.^_ 0 , 

C = SISP * 9.80621 

MOT = ( E* P * 4 . 4 G 92 **6 ) / < 

T LEFT = TSEP 

HP r. HOT ♦ TLEF-I— 

TSAVE = TLEFT 
M P T S V = MPT 
RTCAP = 0.0 

-ptcp-sv ~= . 


C ) 


initialization complete 


p g 

t-M K! 

>1 


10- NTUGS =. -i - 

SAVET = TLEFT 
SAVEM - MPT 
S £V2’< = PT G A° 

I f ( ZZF L£. .GE 


-1- J - GO. -X.0. 23. 


SEPX 

3 5 

SEPX 

36 

SEPX 

37 

SEPX 

38 

SEPX 

39 

S£JP.X_. 

SSL 

SEPX 

4i 

SEPX 

42 

SEPX 

43 

. . . SEPX 

-4.4 

SEPX 

45 

SEPX 

46 

SEPX 

47 

. -SEPX 

--4.8. ._ 

StPX 

49 

SEPX 

50 

SEPX 

51 

.. _ _S£P-X . 

.5-2 

SEPX 

53 

SEPX 

54 

SEPX 

55 

SEPX., 

5l6 

SEPX 

57 

SEPX 

58 

SEPX 

59 

SEPX 

6 n 

SEPX 

61 

SEPX 

62 

SEPX 

63 

SEPX 

64 

SEPX 

65 

SEPX 

66 

SEPX 

67 

S£PX._~ 

.6.3 

SEPX 

69 

SEPX 

70 

SEPX 

71 

-SEPX. 

72 

SEPX 

73 

SEPX 

74 

SEPX 

75 

S£PX 

76 

SEPX 

77 


SEPX 78 
SEPX 79 
S£PX SO 
SEPX 81 
SEPX 82 
SEPX 8 3 
SEPX 34 


( 



1 

O' 


Q k 


<0 




& £ 
£ P 
& & 


& 


NO - .SAVE paLSiMX COHOITIONS 


MPTStf = JPT 
TSAVE =? TL'-rT 
. 4 XC.PSW- s -RIC 4 P- 
00 TO 00 


2 0 TL£FT = TSAVF 
MPT = TS V 
RTCAP = 2T C p 5 V 


t PAST - 


rj 1 / — M(iyj s^E I p PftYLOAO TO 3E JtTRI^VcOjt IF 
UK AMY, CAN 3 £ BROUGHT DOWN 3Y A NEARLY 
EXPENDED 3£PS. 

0? 5 '» GO TO VI ■ 

£f { MPLB . 6T • RT C AP ) GO TO 4 l ^ 

j.jjfliTt A TUG FI J.GH T‘ TO RfcTPl EVE PfiYLOftD 

AND THE NEARLY t.XP-NO-0 S.PS, 


C 

X- 

C 


c 

c 

c 

c 

c 

c 

c 

c 


M£LB~-=— 0 ~^ - 
RTC AP = Q.O 
NTUGS = 2 


SEPX 

3 5 

SEPX 

86 

SEPX 

87 

SEPX 

6 8 

SEPX 

8 9 

SEPX 

. 90 . 

SE°X 

91 

SEPX 

92 

SEPX 

93 

-._5.EP.X 

94 

SEPX 

95 

SEPX 

96 

SEPX 

97 

.. _S£PX - 

9£ 

SEPX 

99 

SEPX 

too 

SEPX 

101 

SEPX. -1.0.2 

SEPX 

103 

SEPX 

104 

SEPX 

105 

SEPX- -10 6 

SEPX 

107 

SEPX 

108 

SEPX 

109 

SEPX _UJL. 

"• SEPX 

111 


__ now TRY TO PERFORM TH£ REMAINING nISSIQM 
^ I T H THE PRESENT CEPS 


— 0 u 


ALL SE PIN ( MPL A f HPL 8, 0 * NEXT T ) 


— IF" IT C AN BE DON- - it 2 + 5* 6 OK 

IF < NEXIT . LT . a > GO TO 90 __ 


3 , 4 , 7 " NO" 


1TS NO pif|?§rI*ii E c^vilr!l5e T 2ftS return itself 
. .XOTEA.RIH.. ■ — - — 1 ' 


:> i 


NPTSY i=MPTSV 
TSAtfi^TSAV:. 

I F-tRT CAP »L£ • 3 
NTUGS =• 2 
RT u AP = 0*0 _ 

[F ( SEPK .LT 


GO TO -.50 
0.5 ) GO TO 73 


SEPX 113 
SEPXllk 
SEPX 
SEPX 
SEPX 
-SEP-X-. 
SEPX 
SEPX 
SEPX 
_SEPX 
SEPX 
SEPX 
SEPX 
SEPX 
SEPX 
SEPX 
SEPX 
.. -SEPX 
SEPX 
SEPX 
SE p X 
S.EPX 


115 

116 
117 
.US- 

119 

120 
121 
122 

123 

124 
12 5 
126 

127 

128 
129 
.130 

131 

132 

133 
13.4 



O' 

C'J 

I 


NOW RETAIN THE PRESENT SEPS AS A NEARLY EXPENDED SEPS 
-A-MQ- - -DE1EPHXNE ITS RErREXV-E-CAP A BIL IT T -ES- 


a ) s o to too 


RTCAP=RTINC+iQ.a 

60 CALL SEP IM < 0 . 0 , RIGA P f 1, NEXT T ) - 

LE-4 N E XIT . LE .5 » mU~ M£XIl- »E3. 

IF ( NEXIT ,EQ. 7 .OR. NEXIT ,EQ. 3 ) GO TO 70 
HPT = rtPTSVl 
TL EFT = TSAV1 

rtcaps-rT'CAPfri-iaic - : 


SEPX 

SEPX 

SEPX 

SEPX 

SEPX 

-SEPX 


c 

c 


GO TO 6 0 


SEPX 

SEPX 

SEPX 

-S£EX. 


135 

136 

137 

138 

139 
-l&JL. 


IT CAN NO LONGER DO IT - INITIATE A NEW SEPS 


70 RTCAP=RTCAP-RTINC 
7p TLEFT=TSEP 

MPT = TSEP *36400.0 * 


SEPX 

SEPX 

SEPX 

S£P_X 


141 

142 

143 

i-44. 


MOT 


CHECK ON THE NEARLY. EXPENDED ONE 


SEPX 

SEPX 

SEPX 

~S£PX_ 


145 

146 

147 
146. 


IFIMPL3.LT.5. ) GO TO 80 

IF— i HRL-B 4-C T ..—.RXCAe-J.-&a T .O-8 0 


SEPX 

SEPX 

SEPX 

SFPX 


149 

150 

151 
JL52- 


153 

154 

155 

156 


THE PAYLOAD TO BE RETRIEVED IS WITHIN THE 
CAPABILITY OF THE NEARLY EXPENOEO SEPS. 
-INXX1A I - S -& XU G - F L I G HT XO -R E T . R .IE VE P .AYLOAD 


AND SEPS. 


SEPX 

SEPX 

SEPX 

SFPX 


v ": x* : 


NPLB =0.0 

-RTCAP^..4UIL 


NTUGS = NTUGS + 1 


SEPX 

SEPX 

SEPX 

.SEPX 


CONTINUE - SEE IF THE PAYLOAD TO BE DEPLOYED CAN 
BE TAKEN IP ON — LNIT I Al. FLIGHT - OF _NE.W__S£_PS. 


SEPX 

SEPX 

SEPX 

■SFPX 


15 7 

158 

159 
-16.0 
161 
162 
163 
166- 


80 CALL SEPIM ( MPL A, 0, 0.NEXIT > 
IF C NEXIT .GT. 4 ) GO TO 110 
IX-t-ME X-LT — ) G.Q.,10. 90 


SEPX 

SEPX 

SEPX 

-S£PX_ 


C 

C 

c 

-C~ 


CONTINUE - SEE IF THERE IS 
IFiaaia^-LE. 5 . ) G O - TO 9 0 


A PAYLOAO TO BE RETRIEVED. 


GAN PAYLOAO TO BE RETRIEVED BE TAKEN ON SUBSEQUENT 
SEPS FLIGHT 


CALL SEPIM (OtMPLBt CtNEXIT ) 
IF (NEXIT .IE. 4 .OR. NEXIT 
IF l NEXIT .GE. 7 ) GO TO 90 

iaUGS--^-NXUGS^-t-I — - 


SEPX 

SEPX 

SEPX 

.SEPX. 

SEPX 

SEPX 

SEPX 

_SEPX 


165 

166 
167 
166. 

169 

170 

171 
1Z2- 


£Q. 10 ) GO TO 120 


SEPX 

SEPX 

SEPX 

-SEPX 


17 3 

174 

175 

176 

177 

178 

179 
-1BJJ 

161 

182 

183 

18 4- 




90 

CONTINUE _ 

T P i Mr y T T . Pfi - 1 \ PFTI1PW . ... ... 

SEPX 185 

S FPX 186- ... „ 




IFU4EXIT.E3.21 RETUR 1* ,.K ; ' . 

IF ( NE X I T . £3 • 5 ) RET UR \ ' : ' 

_ I F C NE X IT • E Q * 6 ) RETURN . , * 

Tl FfT — C fiUFT . 

SEPX 187 
SEPX 188 

SEPX 189 

SF PX— 19.fi — - 


r 


MPT = SAVEM 
RTCAP = SAVER 
RETURN 

SEPX 191 
SEPX 192 
SEPX 193 
_ SEPX 194 


* ' . ■ c 

c 

..... c 

i nn 

*** ERROR CONDITIONS *** 

TP»» - i ?.U; : 'T W ' - £ -~'~ - . .T. * • - •' ahki-jy::....:.-: :. 

SEPX 195 
#4 SEPX 196 
:, SEPX 197 

'»4.£ ERXJLBa. . 



110 

GO TO 150 
I ERR = 2 
GO TO 150 

TFPR x 3 - - — 

SEPX 199 
SEPX 20C 
SEPX 201 
SEPX 2Q.2 


150 

un 

CONTINUE . . «- , •• *.i 

RETURNS : ' . ' *Ns> T 

tf»P:s 1 ri • v*--*- - - m-m . _** -* 'v '• -^--- 

WfT43£PX 28.3 1 - 

WPX 205 - 

.^SftMf.288 " •••^ 


O' 

U> 

i 


GO TO 150 
ENO 

SU8R0UTI NE FAZS 

SEPX 207 
SEPX 208 
FAZS 2 

_ . FAZS 3 


• ' .I; 

PERFORMS SEPS PHASING* ASSUMING CONSTANT SEP THRUSTING. . 

INPUTS. ?|5!g-.^S- 3l ,S.C» S,»,.SE LEO. 

k * payi nan f t rsi on : ?&m >. spl ice ? •"■■■ 

W$ZS ■ b 

' ' ' ? •• AZS.- 

EAZS . . 

-.'4 

c 

c 

c 

c 

' PSERV,VSERV= PERIOD (SECI AND VELOCITY IMPS) OF SERVICE 
OUTPUTS* MPT = FEUL REMAINIG AFTER PH ASXNG < L8SI . 

TLEFT- TIME REMAINING ON SEPS AFTER PHASING (DAYS). 

0R8IFAZS 8 

FAZS 9 

FAZS 10 

■ FftlS-ll 




COMMON/SEPVEH/SEPS,MS,E»P,SISP,SE| KjSR*TSEP , ; ( 

COMMON/ O OTP/ TOrTU,HCO* ICOStHP^Tt^FT ? MOT,NTUGS _ : .. *r/ 

COMMON/ S ERV 1$ /NS£RV,DT HE T A CIO) ,MPLS U0 ) *PSERV t VSERV • V^v 

an MMnN/C5»>Ts ?m. — •..•*&=. •••" - 

'f-. FA2S A - ■'■■■: 

■■ . ; ' 

* FAZS- ' 44 ‘ 

fms . . 




COMMON/TSA/TPLS(39> ,TUP,TDOWN 
REAL MS, MPT, MOT, MPLS, MKG 
F=(MOT*9.80621*SISP>/2.204623 

nriM<;Tt-f .^.n^F^pSFPvi/ (4 .q*vservi - 

FA/S 16 
FAZS 17 
FAZS 18 
-iAZS 13 




’ TS- TLEFT - , . .... 4 " ■ 

OO 10 0 N-i , NSERV V- 4 . ' . 

MKG- t M S ♦ MPT ♦ MPLS < N 1 ) / 2 .,20 4 62 3 . .4 . •: - . . ••• 

or.U-CrtPT f #MtfG*rtTHF TA f Ni l / ( 360 .♦COM.ST.il ii* ; 

• FAZS Zl&m,. 

FAZS 21^ 

FAZS 2.34-' 

• ••4: .FAZS 234'. _:4. ..' 



TLEFT = TLEf T - < < REVERSE RV 1 /86 VO 0 . 1 
TPLS(N) = TS- T LEFT 
NPT=MPT-CM0T*REV*P5ERV* 

inn nnuTTMilf .. . - 

FAZS 24 
FAZS 25 
FAZS 26 
.FAZS Z 1 





poo | oopooobooopooopppopo 


T S=T3 ~TL 


'FT 

IX- 


RETURN 
END 

SUBROUTINE 


TPHAS (A,N> 


DIMENSION A < 1 1 
A ( i l = TUP/360. 
A(H) = TQ0WN/36C 
4X 

NX = N-2 
DO 5 1=1, NX 


A ( I ♦ 1 ) = 
RETURH— 


TPLS < I) /36S. 


END 

SUBROUTINE 


FAZS 

FAZS 

FAZS 

FAZS 

T PH AS 

TPHJlS 

TPHAS 

TPHAS 

TPHAS 

XjPMAX 

TPHAS 

TPHAS 

TPHAS 

TPHAS 


28 

2 - 9 _ 

30 

31 
2 

3 - _ 


SEPIM U1PLA,HPLS,KSEP,NEXIT> 


TPHAS 

SEPIH 

SEPIM 


4 

5 

6 
7 _ 
8 
9 

10 

XL. 


12 

2 

3 

J4_ 


OF THE SEPS ON A DEPLOY HIS SION. 


SPECIFIC 
XA — -ttPL-A 


BAttQAO TO BF nFPl.nYFn 


SEPIH 

SEPIH 

SEPIM 

SEPIH 


MPLB PAYLOAO TO BE RETRIEVED SEPIM 9 

KSEP ERASE FLAG SEPIM 10 

0 = DONT ERASE PRIEVIOUS MANEUVER SEPIM 11 

1 ~ ERAS E — PRIE. V -I O US MANEUVER SFPTM. 1? 


SEPIM 


NEXIT SET TO 0 PRIOR TQ ENTRY 

■OUTPUT J- SEPIM 

■ fc l E XX T TY PE OE F R OM SE PS -T F HTSSTQ N P OSStRLESEPIM 


NTUGS NUMBER OF TUG FLIGHTS REQUIRED TO SEPIM 

00 THE MISSION AND RETURN EXPENDED SEPS, SEPIM 
IF ANY. NTUGS WILL BE BETWEEN 1 AN0 3 SEPIM 
X LF J TIME AND FJLIEJ — g F M A. 1 NT HG O N - SEPS T N ORRTT SFPTM 


13 

14 

15 
XB. 


HPT 


'•'O - - 4, 


COHMON/SEPVEH/SEPS f NS,E , P, SISP,SE PK*$R , TSEP 

QOHHQ-N/ O UTP / TO»XU,HCO, IC OS, MPTXX1EXX, H ai.,.N tU G S _ 

COMMON/ T ABLE/ TUGQV<20) 

COMM0N/SERV IS/NSERV.D THETA ( 10 ) ,MPL S < 10 > ,PSERV, VSERtf 

REAL MPL A, M PL B, MS, MPT, MRTJG , HCO , IC OS 

REAL MP-LS- 


SEPIM 

SEPIM 

SEPIM 

-SEPXM 


REAL MOT 
TU-0,0 
TO- 0 . 0 
HC-Q-^1 ofl-» — 
ICO S= 23.5 


SEPIM 

SEPIM 

SEPIM 

SEPIM 


17 

18 
19 

-2L0 

21 

22 

23 

ZJ t_„ 


FIRS! TEST IF THERE IS A SEPS AVAILABLE 


SEPIM 

SEPIM 

SEPIM 

SEPIM- 

SEPIM 

SEPIH 

SEPIM 

—SEPIM- 


25 

26 
27 
-ZM 


29 

30 

31 
12 


33 

34 

35 
3 - 6 . 



IF ( TLE FT .LT. TSEP 


001 ) GO TO 20 


NO - ITS A NEW SEPS 

TLEFT = TSEP 

WPLA = MPLA + HS ♦ MPT 

HPLfl--= - 3 -J 3 


CALL TUG CP TO DETERMINE TUG C APAB ILlT Y 


CALL T UGCP 1MPLA, WEL 3»M8TUG« DW TUG.} 

IF (OVTUG .LT. TUGDV ( 13) ) GO TO 10 


C 

C 

r. 


TUG DELIVERS SEPS AND MPLA TO SYNC EQ* 


TLEFT = TLEFT -.005 
TU = 0.0 
TO = 0.0 

HCa =l - 9 3?3. 


SEPIM 37 
SE£XM_ 13 
SEPIM 39 
SEPIM 40 
SEPIM 41 
-S£JPiH_JL2 
SEPIM 43 
SEPIM 44 
SEPIM 45 


SEPIM 47 
SEPIM 49 
SEPIM 49 
S£gX3__5JL 


SEPIM 51 
SEPIM 52 
SEPIM 53 
SEPIM 5Tl 


O' 


ICOS=0.0 
IF (NSERV.GT.UJ eCALL FAZS 
NEXIT = 2 • \V - ' 

RETURN ; • 


NEXT CHECK IF ITS. GAP A3LE 


i n N F XIX = -X 


SEPIM 55 
SEPIM 56 
SEPIM 57 
■SLEPIH 59 


SEPIM 59 
SEPIM 60 
SEPIM 61 
-SEPI M 6 2 


IF t 0VTU6-.LT. TUGOVtU > RETJRN 

ITS OK > CONTINUE DETERMINE CHANE0VER ORBIT 


C 

-C-. 

c 


CALL PLUPO (MPLA.MRSEP.TU ) 

IF (NSERV.GT.Q) CALL FAZS 

S-EI_.NEXXL .ANQ T EST I F T HERE IS FJJEJ if. 


NEXIT “1 

IF ( MPT .GE. 0.0 ) RETURN 


SEPIM 63 
SEPIM 64 
SEPIM 65 


c 

r* 

n 

CALL 

INTORB ( OVTUG, HCOtICOS) 

DETERMINE THE SEpS OELTA V 

SEPIM 67 
SEPIM 68 
SEPIM 69 
SEPIM 70 


CALL 

SEPOV ( HCO* ICOS , D VSEP t MRSEP) 

• . SEPIM 71 

- c 



SEPIM 72 

c 


PERFORM UP LEG AND PHASING 

SEPIM 73 

_ _ c.._ . 


' ’ - -- - -- - - --! - - • ' - - - - - . . * • " Y: 

SEPIM 74 


SEPS CANNOT OELl VSR THE PAYLOAD - SET FLAG AND ABORT 


NEXIT = 
-.RETURN 


SEPIM 76 
SEPIM 77 
_SEEXjl7.a_ 
SEPIM 79 
SEPIM 80 
SEPIM 81 
_X££IH.B_2 
SEPIM 83 
SEPIM 84 
SEPIM 35 
.SEPIM -.8-6— 



mis ems ig. j^ig..£fl&-S£es-JiLtfA n. arl £ 

IN SYNC EQ. 0R3IT - . . 


2G A = KSEP 

JtBL-3-JS- SaiSfcAjLSEP-lC^-MS 

WPLA = MPLA 


DETERMINE THE TUG CAPABILITY 


CALL TUGCP <WPLA,WPL8,MRTUG,DVTJG I 
IF ( OVTUG .LT. TUGOV (13) > GO TO TO 


JlOL-=- 


PAYLOAOS TO SYNC EQ ORBIT 


TU = 0.0 
JQ. 0- 


HCa=19323* 

rcos=a.{? 

IF (NSERV.GT • 0 ) CALL FAZS 
HEX IX -a.. -G— — 


SEPIM 
SE.P.I M. 
SEPIM 
SEPIM 
SEP IN 
-SEPIH 
SEPIM 
SEPIM 
SEPIM 
SFPIM- 


SEPIH 
SEPIM 
SEPIM 


8 7 

... 

89 

90 

91 

92 

93 

94 

95 

9_6 - 

97 

98 

99 


SEPIH101 
SEPIM10 2 
SEPIM10 3 


SEPIM105 
SEPIM1Q 6 
SEPIM107 


i 

o 

o 


RETURN 


TUG ALONE CAN NOT DO IT- CHECK IF ALL OK 


30 NEXIT a 7 

IF ( OVTUG .LT. TUGOV (1) ) RETURN 
- ITS OK -r CONTINUE 


DETERMINE CHANS E OVER ORBIT 


CALL INTCRG < OVTUG , HCO, ICOS > 

C ALL SEPU V 4-HCq»IC O S. f OVS FP »MgSEg.* 

CALL PLUPO { MPL8» MRSEPf TO ) 


SET UP ANO CHECK CONSTRAINTS 


SEPIH109 
SEPIMil 0 
SEPIM111 
SEPTMU2 


SEPIM113 
SEPIM 11 4 
SEPIMil 5 


SEPIMil 7 
SEPIMil 8 
SEPIMil 9 


SEPIM 12 1 
SEPIM122 
SEPIM12 3 


NEXIT = a 

IF ( MPT .LT. 0.0 ) RETURN 
IF i K3EP .EC. 0 ) GO TO *0 


SEPS RETRIEVED ALONG WITH PAYLOAO 


TU = 0.0 
-H£XLt_a -ia 
RETURN 


CONTINUE PROCESS 


SEPIM125 

SEPIM126 

SEPIM127 


SEPIM129 
;EPIM130 
EPIM131 
SEBXM1X2 


SEPIM133 

SEPIM134 

SEPIM135 

S£PIMli6_ 



ooOoo I uOuoo i ! ! | 1 ooo 


<*Q CALL PL'JPO (HPLA,MRS£P,TU) 
IF ( NS r .RV flJ — C A LL F A7 S 


C. .. 

-C— 

c 


HEX IT = 9 

IF i HPT .LT. 


SEPIM137 

SEPJXLL3B. 


Q.Q ) RETURN 

M I SSI ON ~CDHPL£j-£ 


SEPIM139 
SEPIN14 0 
SEPIMI41 
SEPIM14Z 


N£ X IT = 5 
RETURN 
END 


SUBROUTI NE TUGC^'- MRTUG *DVTUG } , 

r.. T .- . tugcp -Scales the app roprxatft u gSI&ua i i ohs« 
■ ■ a mt present - o net, o p tion is si n gle - 


SEPIM143 

SEPIM144 

SEPIMI45 

SE P IH1 4 6 


TUGCP 

TUGCP 

TUGCP 


2 

3 

4 

_5_ 


CALL CRYOI 
J5.ETURN— 


STAGE CRYOGENIC TUG. 
( WPL A, HPL8, MRTUG* OVTJG ) 


I 


TUG CP 
TUGCP 

tugcp 

TUGCP, 


EN0 * 

SUBROUTINE 


C RYOl < WPL A , MPLB'y MR TUG * OYTUGJ 


SINGLE STAGE TUG WITH PAYLOADS WPLA AND WPLB. 


TUGCP 5 
GgYOi 
CRY 01: 
QgYQI 


_ CO H MON/ JUG tfF.H/X.YPF-^tiST CASPAR 1 .3) »WS 1,31, » HPA..C .3 ) » F I .SP ( 3) 
X $ REUSE ! 3 1 * HG A * T R : 

X*FE AS 12) ! *• 

C0MH0N/M ISC/G 


CRYOi 

CRY01 

CRYOI 

CR YOI 


10 

2 

3 


RFAI 


MRTliG 


WP=WPAC1 ) 

IF < ( HS(i> + WPA* i) +WPLA) .GT.WGA) WP=WGA-( WSfi>+WPLA> 
MRTUG=(WP + WS(i)*WPLA) /(WSm + WPLA) 

,I,F ( REUSE ( 1) » L lw»JL»J§JL GO. XQ -ia. Q _ .. , .. , 


B'|~WS IXV iKSti* 4-WPLAfWPL» 
m * -w p* ( .N.PL b *ws hi b%: . 

8PI ^^'!»3Z*SQRT«Bt*BZ-^»CZll /2* 
MRIUG^lJ&PXt aPL&LMSXlX) £iaPLB»HSll 1 X 


CRYOI 9 

mi oi.'. i.o. 

CRYOi 11 
; RY-Oi 
CRYOI 13 
CRYOI 14 
CRYOI 15 
X.RY01. 1 6 


100 ALHR= ALOGI H RTUG) 

OVTUG = G*EISP<1J *ALMR/(TR+1. ) 
RETURN 
Em 


SUB ROUT I NE PLUPO (HPLU , HRSEP , T ) 


CRYOI 17 
XRYOl 18 
CRYOI 19 
:CRY.QX;_Z0__ 
CRYOI 21 
CRYOI 22 
CRYOI 23 
CRYOI 24 


PL UP - CARRIES SEPS PAYLRAO UP 


COMHON/S£PVEH/SEPS,MS*E,P,SISPtSEPK,SR^TSEP 
COMMON/ OUTP/ TO,TU,HCO,ICOS,MPT,TLEFT,HOT f NTUGS 
REAL MS,MPT,MOT,MPLU,MRSEP, MPT.i 

U£Xj_=— 11 -fclgX- X MS t H PL U ) / H RS F P) - ijlSXJlPLUX. 


PLUPD 

PLUPD 

PLUPD 

^LU££L 


PLUPD 

PLUPD 

PLUPO 

PLiiED 


2 

3 

4 

5.: 

6 

7 

8 

.. 9 _ 



T = (MPT - HPT i > / 
TLFF-X =— T L EF . I ^ _I 


( $6400. 0 * HOT) 


MPT = MPT1 

RETURN 

END 




PLUPO 10 
.PJUPQ _1±. 
PtUPD 12 
PLUPO 13 
PLUPO 14 
SEROV 2 


SEPDV - CALCULATES THE REQUIRED SEP DELTA VELOCITY 
NEEDED FOR SYNC EG • ANO THE CORRESPONDING 
HASS R ATXCU 


SEPOV 

SEPDV 

SEPOV 

SEPDV 


INPUT 


HCO ORBIT ALTITUDE 
IGQS-~. INCLINATION 


SEPOV 7 

sepov a 

SEPDV 9 
SEPO V 1 fl 


i 

o 

00 


OUTPUT 


OVSEP THE SEP DELTA V 
HRSEP THE MASS RATIO 


SEPDV 

SEPOV 

SEPOV 

SEPOV 


COHHON/SEPVEH/SEPS ♦ MS * E, P, SISP,SEPK* SR* 

SCTi&Sff 1 ' 

REAL MRSEP 

OAT A HS, MU, RE ,DTR/ 19323. ,1.40 7653 8 8E16, 3443. 930 8* 57. 295779513/ 
DATA FTPNM/6076. 1155/, PI02/1. 570796326794/ 


SEPOV 

SEPDV 

SEPOV 

SFPOV 


11 

12 

13 

14 


15 

1A 


SEPDV 

SEPOV 

SEPDV 


19 

20 
21 


C 

C 

c 

-G- 




RS = (H$ +RE) ♦F'TPNttJr- /. '• V 

Vco = SQRT1HU/RC81 ' v - : ! v 

, 

SEPOV 23 
SEPOV 24 
SEPOV 25 

.ff.ii.vV' • SEPOV 26 



OVSEP - SGRTCVCO**2 + VS*»2-( VS4-VS* *VCO*CICQ) 

MRSEP = EXP<DVSEP/<G*SISP>) 

RETURN 

pwn ..... . . . 

SEPOV 27 
SEPOV 28 
SEPOV 29 

SEPOV 3 0 


c 

c 

n 

SUBROUTINE . INT0R8 : (DVTUG,HCO. ICOS 1 : 

INT0R8 - AN INTERPOLATION SCHEME TO DETERMINE 
. THE DPT I-MUH C H A NSF D VER 0 R BIT— A L T.XTli DEL — 

INTORB 2 
INTORB 3 
INTORB 4 
INTORB 5 — 


r 

o 

c 

C- — 

AND I NCL I NAT ION. 

INPUT 

nVTIJf, - TUG DFt TA 1/ - - 

INTORB 6 
INTORB 7 
INTORB 8 

-INTORB- 9 . . 


OtlTPUT 


HCO ALTITUDE OF CHANGEOVER. ORBIT 
I COS— INCLINATION O F CHA N GFOVER .HftBXH 


COMMON/T ABLE/TUGOVC20 > 
REAL — 1-C OS^INCX2-0 ) * A LT (-2 01 


INT0R811 
INT0RB12 
INTQRB13 
INT0RB14 
INTORB1 5 
INT0RB16 
iNTORflUL 



□ A T 3 

X 

TUGDV/ 10 295. 74, 10600. 0,19 90Q. 0,11200. 0,11 530. Q, 
iiann,n f i^inn.n f i24ao.n t i^7on.n t i3nnn.n. 

INTOR818 
TNTORR1 9 



X 

DATA 

, X 

x 

13300.0,13600.0,13835.17, 7* 0.0/ 

ALT / 8 0 00.0, 3000* 9, dQQO *0,8000.0* 8000. 0, 8509 *0, 
95 00 . 0 , 1 .0 5 00.9 , 1 If 00 . 0 , 1 3 0 0 0 . Q , 1 45 0 0 .0 , 

■ . • 

INTORB20 
INTORB21 
INTQRB22 
TNT OPR? 3 


c 

•0 

DATA 

X 

INC / 28. 5,19.6, 15. d, 12.8,19. 14, 6. So, 8. 52, 7. 67, 
6. 4, 5.5, 3.87, 2.45, 8* 0.0 / 

FT Nil T.HF RANGE OF pFL T A y 

INTORB24 
INTORB25 
INTORB26 
T NT ORR? 7 


G 

00 20 NPi = 
IF (OVTUG . 
2Q CONTINUE . 

LE* TUG3<MNPtt)GO TO 30 

INT0R828 
INTORB29 
INTQRB30 
X TNTORB31 


c 

c 

3 0 MPfl - NP1-- 

FOUND THE -RANGE COMPUTE THE ALT ANQ INC. 

1 

I NT OR B3 2 
INTQRB3 3 
INT0R834 
I NT OR R 3 5 


• 

FRAC = < DVTUG - TUGOVtNPO ) ) / <TUGOV<NPl> - TUGOViNPO )) 

HCO = ALT1NPO ) ♦ FRAC* (ALTdPi) ~ ALT <NPO M 

ICOS = INCINPO ) ♦ FRAC* (INCfMPD - INCINPO U 

RFTURM .. • - ~ ^ 1 r ><? ~ ' - 

; INTORB36 

m%mi 

i NT Qf£B3 9 . 


i 

O' 

vO 

ENO 

S 13ROUTINE 
K =0 

T ft T.FQ. 1H 

CON ( t , K) 

_1_ RETURN 

INTORB4 0 
CON 2 
CON 3 
CON 4 


* : .> 

'<=100 

IFII.EQ.4H 
IFd.EQ.4H 
TF { T . FQ. **H 

0) - r ^ ^ % • •• 

1) K=1 •' r ' - ; . ■ 

Pi .** * - ....... '"X . ...... _.’,;.X.... - 

•: 5 C:-- 

■V.UfeON^. 6 ys 

CO H 7 

CON ft 


i 

IFU.EQ.4H 
IFU.EQ.4H 
IFd.EQ.4H 
XEd. EQ.-4H 

3) K = 3 
41 K”4 
5) K=5 

6) K=fe 

CON 9 

CON 10 

CON 11 

... CON 12 



^ TFT 1 * EQ. 4H 
; IFd.EQ.4H 
- IFd.EQ.4H : 
. IFd. F0.4H: 

7) K = 7 

8) K=8 

9) <=9 

io> Ksin - >-v .*•; 

w:-,CON 13 

CON 14 o 

.CON 15 

CON 16 { 



IFCX. EQ. *+H 
IFCI.EQ.4H 
I PC I. EQ. 4H 
TFI T. FQ.4H 

11) K= 1 1 

12) K=12 

13) K=13 

14) K = 14 ....... 

CON 17 

CON 18 

CON 19 

CON 20 



IFd.EQ.4H 

RETURN 

END 

15) K=15 .'>• ■ ' ' - . : ; r • 

- CON 21 

CON 22 

CON 23 
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